Создать массив натуральных четных чисел длины N, и вывести сумму элементов. можно блок схему.

Question

Информатика

Рося

12 июня, 08:45

Создать массив натуральных четных чисел длины N, и вывести сумму элементов. можно блок схему.

+3

Ответы (1)

Знаете ответ?

Алеша · Answer 1

Const n=20;

var a:array[1 ... n] of integer;

i, s:integer;

begin

s:=0;

for i:=1 to n do begin

readln (a[i]) ;

if a[i] mod 20 then begin

writeln ('вы ввели нечетное число. введите заного') ;

readln (a[i]) ; end;

s:=s+a[i];

end;

writeln (s) ;

end.