2 задачи по Паскалю

[Павел Я]

Задача 1 С помощью генератора случайных значений сформировать три массива A, B, C вещественных значений, в каждом из которых не более 20 элементов. Значения элементов массивов формируются в диапазоне [-3m, 2m], где значение m>5 вводится с клавиатуры. Написать программу, в которой вывести на экран три сформированных вектора и затем вывести имя (имена) массива(ов) с максимальной суммой положительных элементов. Задача 2. С помощью генератора случайных значений сформировать 4 вектора V1, V2, V3, V4, каждый из которых содержит m (где m<=24) целочисленных значений. Элементы векторов формируются в диапазоне [-2k, 3k], где значение k>4 вводится с клавиатуры. Написать программу, в которой вывести на экран все сформированные векторы, и предусмотреть функцию, с помощью которой затем вывести сумму элементов кратных 7 в каждом векторе. Спасибо

[NeshSoft]

Сами пробовали решить?
Задавать элементы массива в диапазоне можно так:

A[i]:=random(2*m+1+3*m)-3*m

Во втором случае - аналогично. Ну а сумму элементов - просто находить в цикле по всем элементам массива, при условии, что элемент положительный, или кратен 7.
Исходя из этого напишите свой вариант решения, а мы тут подправим, если что.

[puporev]

A[i]:=random(2*m+1+3*m)-3*m

Это будут целые числа.
А вещественные можно так A[i]:=5*m*random)-3*m

[Павел Я]

Для 1-й задачи
var
A:array[1..20] of real;
m,sumpl:real;
k,i:byte;
begin
write('Введите значение m>5:'); readln(m);
write('Введите значение k<=20; readln(k);
randomize;
sumpl:=0;
for i:=1 to k do begin
A[i]:=5*m*random-3*m;
if A[i]>0 then sumpl:=sumpl+A[i]

То же делаем для массива B и C. Как выбрать максимальную сумму и вывести имя массива???

[NeshSoft]

вместо sumpl использовать массив

 sumpl:array[1..3] of summax

где

type
 summax=record
 name:string;
 value:real;
 end;

sumpl[1].name:=А - для массива А, sumpl[1].value:= сумме положительных элементов

Затем сортируем массив sumpl любым известным методом по значению value и выводим имя массива

if (sumpl[1].value=sumpl[2].value) and (sumpl[1].value=sumpl[3].value) then
   write('максимальная сумма положительных элементов в массивах А,В,С') 
   else
     if (sumpl[1].value=sumpl[2].value) then
       write('максимальная сумма положительных элементов в массивах '+ sumpl[1].name+','+sumpl[2].name) 
     else
     write('максимальная сумма положительных элементов в массиве '+ sumpl[1].name);

[Павел Я]

ПРобывал я разобрать то что вы написали. Но я не могу понять!!! Что за типы record,string. Что такое value, что написанно дальше - труба! Можете думать что я тупой, но я не занимаюсь программированием, поэтому и прошу помощи на этом форуме. Возможно вы напишети программу полностью и я смогу понять ее целеком. Поймите что вы написали, эти команды там разные, в лекциях нам не давали. Может есть вариант написания попроще? Спасибо

[maladoy]

record - тип запись
value - поле записи
string - тип строка

uses crt;
var
A:array[1..20] of real;
b:array[1..20] of real;
c:array [1..20] of real;
sum:array[1..3] of real;
m:real;
k,i:byte;
begin
clrscr;
write('Введите значение m>5:'); readln(m);
write('Введите значение k<=20; readln(k);
randomize;
for i:=1 to 3 do
sum[i]:=0;
for i:=1 to k do begin
a[i]:=random(2*m+1+3*m)-3*m;
b[i]:=random(2*m+1+3*m)-3*m;
c[i]:=random(2*m+1+3*m)-3*m;
if A[i]>0 then sum[1]:=sum[1]+A[i];
if b[i]>0 then sum[2]:=sum[2]+A[i];
if c[i]>0 then sum[3]:=sum[3]+A[i];
end;
write('mas a:');
for i:= 1 to k do 
write(' ',a[i]:6:3);
writeln;
write('mas b:');
for i:= 1 to k do 
write(' ',b[i]:6:3);
writeln;
write('mas c:');
for i:= 1 to k do 
write(' ',c[i]:6:3);
writeln;
if sum[1]>sum[2] and sum[1]>sum[3] then writeln ('a');
if sum[2]>sum[1] and sum[2]>sum[3] then writeln ('b');
if sum[3]>sum[1] and sum[3]>sum[2] then writeln ('c');
end.

[Павел Я]

Большое спасибо сейчас я точно раберусь

[maladoy]

Большое спасибо сейчас я точно раберусь

разберетесь и вторую сами сделаете

[NeshSoft]

if A[i]>0 then sum[1]:=sum[1]+A[i];
if b[i]>0 then sum[2]:=sum[2]+A[i];
if c[i]>0 then sum[3]:=sum[3]+A[i];

Здесь наверное опечатка, нужно так:

if A[i]>0 then sum[1]:=sum[1]+A[i];
if b[i]>0 then sum[2]:=sum[2]+b[i];
if c[i]>0 then sum[3]:=sum[3]+c[i];

А при выводе на экран имени массива таким способом:

if sum[1]>sum[2] and sum[1]>sum[3] then writeln ('a');
if sum[2]>sum[1] and sum[2]>sum[3] then writeln ('b');
if sum[3]>sum[1] and sum[3]>sum[2] then writeln ('c');

Программа не выведет ни чего, если хотя бы две суммы будут равны. Поэтому я и предложил более сложный метод с записями.