задать одномерный массив 20 целых чисел из [-5 1] и вывести его на экран
найти сумму всех элементов массива
unit math;
program chisla;
var
a: array[1..20] of intteger;
i,s:integer;
Begin
s:=0;
for i:=1 to 20 do begin
a[i]:=randomRange(-5,1);
write(' ',a[i]);
s:=s+a[i];
end;
readln;
writeln('Сумма элементов массива= ',s);
End.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
unit math;
program chisla;
var
a: array[1..20] of intteger;
i,s:integer;
Begin
s:=0;
for i:=1 to 20 do begin
a[i]:=randomRange(-5,1);
write(' ',a[i]);
s:=s+a[i];
end;
readln;
writeln('Сумма элементов массива= ',s);
End.