Question

Составить программу для решения следующей задачи:
Сформировать массив из 12 элементов, значения которых берутся из диапазона [-20;20]. Вывести на экран сформированный массив. Найти максимальный и минимальный элементы массива и вывести их на экран. Найти сумму элементов массива и вывести её на экран.

Answer 1

program masiv;

Var a: array [0..11] of integer; i,b,c,sum:integer;

begin

randomize;

for i:=0 to 11 do a[i]:=random(-20,20);

writeln(a);

c:=a[0];

for i:=0 to 11 do begin

if c<a[i] then c:= a[i];

if b>a[i] then b:= a[i];

sum+=a[i]

end;

writeln('Максимальный элемент массива = ',c);

writeln('Минимальный элемент массива = ',b);

writeln('Сумма элементов массива = ',sum)

end.