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.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

07.06.2013, 17:58

Ответы с готовыми решениями:

Блок схема
помогите с блок схемой program zadacha; uses crt; var st,st1:string; l,n,i,j:byte; begin...

Блок схема
Помогите плз, срочно надо. Program praktika3; Uses Crt; Type StFio=string; StAdres=string;...

Блок схема
помогите с блок схемой program oaip_L6A; type TYacht=record displacement: real; ...

Блок-схема
Добрый вечер! Прошу очень составить блок-схему на данную программу: Program zadanie; Var m:...

	07.06.2013, 17:58

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

07.06.2013, 17:58

Помогаю со студенческими работами здесь

Блок-схема
Program NATCHISL; uses crt; var p: real; i: byte; begin clrscr; p:=1; for i:=2 to 11 do ...

Блок-схема
сделайте пожалуйста блок-схему к этой программе: var n,i:integer;p:longint; begin readln(n);...

Блок-схема
Помогите нарисовать блок-схему по составленной программе!!! Program matrixx; Const k=10; Type...

блок-схема!!!
program p24; uses crt; type mas=array of real; procedure readMas(var M:mas;n:integer;s:char);...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх