Pascal ! рассчитать сумму элементов массива, из - вопрос №32195427 от kirkanobotan 14.01.2023 07:48

Question

Информатика: Pascal ! рассчитать сумму элементов массива, из 7 случайным образом заданных чисел,вывести на экран элементы массива и их суммы. 40

kirkanobotan · Answer

Var
a: array [1..7] of integer;
i, sum: integer;
begin
sum := 0;
for i := 1 to 7 do
begin
a[i] := random(101);
writeln('A[', i, ']=', a[i]:3);
sum := sum + a[i];
end;
writeln('Сумма элементов массива равна ', sum);
readln
end.