Регистрация
gabadunka
08.09.2020 02:52
Информатика
Есть ответ 👍

Сформировать массив из n случайных чисел на промежутке [-50; 50].найти сумму четных чисел.

230
431
Посмотреть ответы 2

Ответы на вопрос:

Milanaмилана
Milanaмилана
4,5(71 оценок)
Program project2; {$apptype console} uses  windows; var n,i,s: integer;     a: array of  integer; begin  randomize; s: =0;   setconsoleoutputcp(1251);   write('введите длину массива: ');   readln(n);   setlength(a,n);   for i: =0 to length(a) do    a[i]: =random(100)-50;   for i: =0 to length(a) do   write(a[i]: 3);     writeln;   for i: =0 to length(a) do    if a[i] mod 2 =0 then    s: =s+a[i];   writeln('сумма: ',s);   readln; end.
Подпишись1
Подпишись1
4,7(92 оценок)
5четвёрок в ответе. может и нет

Популярно: Информатика