Скачиваний:
288
Добавлен:
04.03.2014
Размер:
594 б
Скачать
unit m;
interface
Procedure mudak;

var
f:file of real;
a:array[1..30] of real;
i,n:integer;
b:boolean;

Implementation

Procedure mudak;
var
c:array[1..30] of integer;
begin
reset(f);
writeln('€б室­л© ¬ ббЁў:');
while not eof(f) do
begin
b:=true;
read(f, a[i]);
Writeln(a[i]:3:0);
end;
close(f);

writeln('ЏаҐ®Ўа §®ў ­­л© ¬ ббЁў:');
reset(f);
b:=true;
while not eof(f) do
begin
read(f, a[i]);
if a[i]<0
then begin
write(a[i]:3:0);
b:=false;
end;
end;

if b=true then
write(' ЋваЁж вҐ«м­ле н«Ґ¬Ґ­в®ў ў ¬ ббЁўҐ ­Ґв!');

close(f);
writeln;
end;
end.
Соседние файлы в папке Alex