1.найти сумму четных элементов массива целых чисел.размерность - вопрос №168461212010 от au20941 09.02.2021 01:17

Question

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

au20941 · 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....