{ Pascal ABC.NET 3.2 Входной текстовый файл с числами ч/з один пробел. (в конце не должно быть пробелов!) } const f_in_name = 'd:\in9.txt'; f_tmp_name = 'd:\tmp.tmp'; var f_in,f_out: text; i, k: integer; begin Assign(f_in, f_in_name); Assign(f_out, f_tmp_name); Reset(f_in); Rewrite(f_out); k := 0; while not Eof(f_in) do begin Read(f_in, i); k := k + 1; if k mod 2 <> 0 then Write(f_out, ' ', i); end; Close(f_out); Close(f_in); DeleteFile(f_in_name); RenameFile(f_tmp_name, f_in_name); end.
program Ex1; const nn=100; { ограничение на длину массива } var i,n,s,k:integer; a:array[1..nn] of integer; begin Randomize; Write('n='); Read(n); k:=0; for i:=1 to n do begin a[i]:=Random(101)-50; Write(a[i],' '); if a[i]>0 then begin k:=k+1; s:=s+a[i] end end; Writeln; Writeln('Среднее положительных ',s/k) end.
program Ex2; const nn=100; { ограничение на длину массива } var i,n,min:integer; a:array[1..nn] of integer; begin Randomize; Write('n='); Read(n); min:=100; { больше максимально возможного } for i:=1 to n do begin a[i]:=Random(101)-50; Write(a[i],' '); if a[i]<min then min:=a[i] end; Writeln; Writeln('Минимум ',min) end.
Выводы о том, чему и как учат в школе, делайте самостоятельно...
Входной текстовый файл с числами ч/з один пробел.
(в конце не должно быть пробелов!)
}
const
f_in_name = 'd:\in9.txt';
f_tmp_name = 'd:\tmp.tmp';
var f_in,f_out: text; i, k: integer;
begin
Assign(f_in, f_in_name);
Assign(f_out, f_tmp_name);
Reset(f_in); Rewrite(f_out);
k := 0;
while not Eof(f_in) do begin
Read(f_in, i); k := k + 1;
if k mod 2 <> 0 then Write(f_out, ' ', i);
end;
Close(f_out); Close(f_in);
DeleteFile(f_in_name);
RenameFile(f_tmp_name, f_in_name);
end.