Составить блок-схему к коду

@максон8 · Регистрация: 15.01.2013

Author24 — интернет-сервис помощи студентам

Pascal

program noname;
uses Crt;
const n=20;
var a:array[1..n] of Integer;
i,sum:Integer;
begin
sum:=0;
ClrScr;
Writeln('Массив:');
Randomize;
for i:=1 to n do
begin
a[i]:=Random(101)+100;
if a[i] mod 2=0 then inc(sum,a[i]);
Write(a[i],' ');
end;
Writeln;
Writeln('Сумма четных элементов:',sum);
Readln;
end.

@CodeR · 16.01.2013, 09:01

.....

@CodeR Фрилансер 3418 / 2815 / 3000 Регистрация: 08.02.2012 Сообщений: 8,600 Записей в блоге: 1
	16.01.2013, 09:01	2
	..... Миниатюры 1

Опции темы