1.найти сумму четных элементов массива целых чисел.размерность - вопрос №168461212010 от Ilfar1234 05.02.2020 09:05

Question

Информатика: 1.найти сумму четных элементов массива целых чисел.размерность - 20.от 100 до 200.

Ilfar1234 · Answer

uses crt;var s,i:integer;a:array[1..20] of integer;begins:=0;for i:=1 to 20 dobegin a[i]:=random(100)+100;if a[i] mod 2 =0 thens:=s+a[i]; end; writeln(s);readln;end....