Скачиваний:
5
Добавлен:
01.05.2014
Размер:
747 б
Скачать
program Zadanie_5;
var
f: file of integer;
i: integer;
k,j: byte;
a: array [1..255] of integer;
begin
assign (f,'zadanie_5.txt');
rewrite (f);
writeln ('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® ўў®¤Ё¬ле зЁбҐ«: ');
readln (k);
for j:=1 to k do
begin
write ('‚ўҐ¤ЁвҐ ',j,' зЁб«®: ');
read (i);
write (f,i);
end;
reset (f);
writeln ('‡­ зҐ­Ёп Ё§ ᮧ¤ ­­®Ј® д ©« :');
for j:=1 to k do
begin
read (f,i);
write (i,' ');
a[j]:=i;
end;
rewrite (f);
for j:=k downto 1 do
write (f,a[j]);
writeln;
reset (f);
writeln ('‡­ зҐ­Ёп Ё§ д ©« :');
for j:=1 to k do
begin
read (f,a[j]);
write (a[j],' ');
end;
close (f);
writeln;
end.

Соседние файлы в папке 10-5
  • #
    01.05.2014737 б5zadanie_5.bak
  • #
    01.05.20145.77 Кб5zadanie_5.o
  • #
    01.05.2014747 б5zadanie_5.pas