Предмет: Информатика,
автор: TheForgi
Напишите программу, которая заполняет массив из 20 случайных элементов на отрезке [10;1000] и находит отдельно сумму элементов в первой и второй половинах массива.( На языке Паскаль, спасибо!)
Ответы
Автор ответа:
2
var a : array [1..20] of integer;
i, s1, s2: integer;
begin
s1 := 0;
s2 := 0;
randomize;
for i := 1 to 20 do
begin
a[i] := random(991) + 10;
if (i < 11) then
s1 += a[i]
else
s2 += a[i];
end;
writeln(s1);
writeln(s2);
end.
Интересные вопросы
Предмет: Русский язык,
автор: latinbog123
Предмет: География,
автор: bsjoxon
Предмет: Физика,
автор: niwmsjns
Предмет: Литература,
автор: G00gle5