Составить блок схему и программу . Сформировать одномерный массив из промежутка -40;10 найти сумму СРОЧНО!!!
Составить блок схему и программу . Сформировать одномерный массив из промежутка -40;10 найти сумму СРОЧНО!!!
Гость
Ответ(ы) на вопрос:
Гостьvar
a: array[1..100] of integer;
i, n, s: integer;
begin
readln(n);
s := 0;
for i := 1 to n do
begin
a[i] := Random(50) - 40;
write(a[i], ' ');
s := s + a[i];
end;
writeln;
writeln('s = ', s);
end.
Не нашли ответ?
Похожие вопросы