Регистрация
kholmatova002
16.12.2022 17:43
Информатика
Есть ответ 👍

Найти сумму четных элементов массива целых чисел.размерность массива - 20.заполнение массива осуществить случайными числами от 100 до 200

236
288
Посмотреть ответы 2

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

Ilya1140
Ilya1140
4,8(57 оценок)

var

a: array [1..20] of integer;

s,i: integer;

begin

randomize;

for i: =1 to 20 do begin

a[i]: =random(101)+100;

write (a[i],' ');

end;

writeln;

s: =0;

for i: =1 to 20 do 

if odd(a[i])=false then s: =s+a[i];

writeln (s);

readln;

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

vamagic2001
vamagic2001
4,8(87 оценок)
1) 12*48*32=18432 количество символов 2)18432*16=294912 бит                   36864 байта                   36 кбайт

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