блок-схема

@IIaJIbI4 · Регистрация: 16.11.2009

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

Поиогите сделать блок-схему

Pascal

program er1;
* const n=10;
var a:array[1..n] of integer;
*** i:integer;
*** k:integer;
begin
*
for i:=1 to n do a[i]:=random(50);
for i:=1 to n do write(a[i],' ');
*
if a[i]<16 then begin
*
if a[i] mod 2 = 0 then writeln('4etnoe')
else inc(k);
writeln('Bugogo');
*
end
*
else begin 
** if a[i] div 2 = 0 then* begin 
** inc(k);
writeln('Bugogo');
end;
end;
readln;
end.

@Давид · 27.12.2009, 11:45

держи.

	27.12.2009, 11:45