Напишите программку, которая наполняет массив из 20 случайных элементов на отрезке

Напишите программу, которая заполняет массив из 20 случайных элементов на отрезке [10;1000] и находит раздельно сумму частей в первой и 2-ой половинах массива.( На языке Паскаль, спасибо!)

Задать свой вопрос
1 ответ

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 lt; 11) then

s1 += a[i]

else

s2 += a[i];

end;

writeln(s1);

writeln(s2);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт