Блок схема

@2-D · Регистрация: 03.10.2012

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

Помогите пожалуйста блок схему сделать вот код

Pascal

program zadacha9;
var
a:array [1..10] of integer;
b,c,d,e,n,i,j,z:integer;
fl:text;
l:longint;
begin
assign(fl,'D:\45\qwe.txt');
rewrite(fl);
close(fl);
write('vedite n ');
readln(n);
rewrite(fl);
e:=0;
for i:= 1 to n do
begin
write('vvediyte znach ');
readln(a[i]);
     write(fl,a[i] );
     e:=e+1;
     write(fl,' ');
     e:=e+1;
     end;
     close(fl);
     Reset(fl);
For i:=1 to n do
Begin
  read(fl,z);
  if z mod 2 = 0 then write(z,' ');
End;
readln;
end.

@Craider · 23.11.2013, 22:29

...

@ildwine · 23.11.2013, 22:48

Сообщение от Craider

Не забудь сказать спасибо +1!)

Комментарий модератора

Пункт правил 5.10. "Запрещено накручивать репутацию и другую статистику пользователя любым способом, включая создание пользователей-клонов, а также склонять (агитировать) других пользователей к ее изменению."

@Craider -11 / 5 / 7 Регистрация: 25.04.2013 Сообщений: 80
	23.11.2013, 22:29	2
	... Миниатюры 0

Опции темы