Скачиваний:
288
Добавлен:
04.03.2014
Размер:
966 б
Скачать
program poil1;
type
re =record
city:string[10];
nt:integer;
dt:integer;
end;
df=file of re;
var i,k,t:integer;
st:string;
sr:real;
ch:char;
a:array[1..20] of re;
f:file of re;
begin
writeln('‚ўҐ¤ЁвҐ ¤ ­­лҐ');
writeln(' ':5,'Ќ §ў ­ЁҐ',' ':26,'Ќ®з­ ⥬ЇҐа вга ',' ':5,'„­Ґў­ ⥬Ї');
writeln;
assign(f,'ger.dat');
rewrite(f);
k:=0;
repeat k:=k+1;
write('',k,'');
readln(a[k].city);
readln(a[k].nt);
readln(a[k].dt);
writeln('Џа®¤®«¦Ёвм ўў®¤?(y/n)');
readln(ch);
until ch='n';
for i:=1 to k do writeln(a[i].city,' ',a[i].nt,' ',a[i].dt);

sr:=0;
t:=0;
for i:=1 to k do
sr:=(a[i].dt+a[i].nt)/k;
for i:=1 to k do
if (a[i].dt+a[i].nt)>sr then begin
writeln('ѓ®а®¤ ',a[i].city);
t:=t+1;
write(f,a[i]);
end;
if t=0 then writeln('goodby');
close(f);
reset(f);
writeln('ђ бЇҐз влў о д ©«');
while not eof(f) do
for i:=1 to t do
begin
read(f,a[i]);
writeln(a[i].city,' ',a[i].nt,' ',a[i].dt);
end;
close(f);
readln
end.

Соседние файлы в папке Alex