FreePascal.ru

Большое спасибо всем за помощь все работает!

Помогите пожалуйста что здесь не правильно. не работает.
Program pr1;
{$mode objfpc}{$H+}
uses
Classes , SysUtils
{you can add units after this};
type
massiw=array [1..1000] of integer;
var f : file of integer;
i, n, min, a, s, t, x: integer;
p, z: array of integer;
begin
AssignFile ( f, 'text.txt ...

Я не понимаю как тогда лучше записать?

А что не правильного в этом коде?

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

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

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

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

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

Odd()

А по подробнее можно?

Есть вот что помогите дальше нужно записать в массив только четные компоненты, находящиеся до минимального элемента.
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 &#58 ...

Создать типизированный файл, куда записать n целых чисел. Из файла целых чисел сформировать массив, записав в него только четные компоненты, находящиеся до минимального элемента.
Помогите пожалуйста очень нужно