freepascal.ru

NTFS писал(а):Мое предложение - 300 руб, срок - один день.

Код: Выделить всё

Program pr1;
{$mode objfpc}{$H+}
uses
Classes , SysUtils
{you can add units after this};
type
massiw=array [1..1000] of real;
var f : file of real;
i , n : integer;
a : real;
p :^massiw;
s , t :word;
begin
AssignFile ( f, 'text.txt');
rewrite ( f );
write ('n=');
readln (n );
for i :=1 to n do
begin
write ('a=');
readln (a);
write (f, a);
end;
CloseFile (f);
AssignFile (f, 'text.txt');
reset (f) ;
s:= filesize (f);
writeln ('v faile ' ,s , ' chisel');
getmem(p, s*sizeof (real));
for t :=1 to s do
begin
read(f, p^[t]);
write (p^[t], ' ');
end;
freemem(p ,s*sizeof (real));
closefile (f);
readln;
end.

Код: Выделить всё

var p: array of integer;
...
s:= filesize (f);
SetLength(p,s);
...
for t:=0 to s-1 do // нумерация элементов начинается с нуля
begin
  read(f, p[t]);
...


Код: Выделить всё

if (p[t] mod 2)=0 ...

v-t-l писал(а):5. Число является четным, если остаток от целочисленного деления на 2 равен 0

Код: Выделить всё

if (p[t] mod 2)=0 ...

RustemNur писал(а):ТС, где вы взяли этот код?

Добавлено спустя 8 минут 3 секунды:

v-t-l писал(а):5. Число является четным, если остаток от целочисленного деления на 2 равен 0

Код: Выделить всё

if (p[t] mod 2)=0 ...

Odd()

Код: Выделить всё

if (p[t] mod 2)=0 then
begin
Будет выполнено если p[t] четное число
end;

Код: Выделить всё

if Odd(p[t]) then
begin
Будет выполнено если p[t] Не четное число
end;

Код: Выделить всё

program pr1;
var
  f: file of integer;
  n, a, i, min, t: integer;
  p: array of integer;
begin
  AssignFile(f, 'array.dat');
  Rewrite(f);
  n := 0;
  while n <= 0 do
  begin
    Write('n=');
    ReadLn(n);
  end;
  for i := 1 to n do
  begin
    Write('a=');
    ReadLn(a);
    Write(f, a);
    if (i = 1) or (a < min) then
    begin
      min := a;
      t := i;
    end;
  end;
  CloseFile(f);
  AssignFile(f, 'array.dat');
  Reset(f);
  SetLength(p, t);
  WriteLn('v faile ', n, ' chisel');
  n := 0;
  for i := 1 to t - 1  do
  begin
    Read(f, a);
    if (a <> 0) and (a mod 2 = 0) then
    begin
      p[n] := a;
      Write(p[n], ' ');
      n := n + 1;
    end;
  end;
  CloseFile(f);
  ReadLn;
end.