Напишите программу, которая заполняет массив из 20 случайных элементов на отрезке [10;1000] и находит отдельно сумму элементов в первой и второй половинах массива.( На языке Паскаль, спасибо!)
Ответы
Ответ дал:
0
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.
Ответ дал:
0
Я Вас очень прошу! Если Вам не сложно....Помогите мне тоже, пожалуйста...( https://znanija.com/task/31209029
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад