Тип "Запись" в Паскале. 6.(интересно)!!!

[d00ker]

извини, чето я тупил ( ), теперь написал все в Дельфи, должно работать

Код:


program Project2;

{$APPTYPE CONSOLE}

uses SysUtils;

type pass=record
n:integer;
k:integer;
m:integer;
end;

var a:array[1..5] of pass;
i,ob,kol,n:integer;
sr:real;

begin
ob:=0;
kol:=0;
for i:=1 to 5
do begin
writeln('element N',i);
a[i].n:=1;
writeln('vvedite kol-vo veschei');
readln(n);
a[i].k:=n;
writeln('vvedite massu veschei');
readln(n);
a[i].m:=n;
writeln;
end;

for i:=1 to 5
do begin
ob:=ob+a[i].m;
kol:=kol+a[i].k;
end;

sr:=ob/kol;
for i:=1 to 5
do begin
if (a[i].m/a[i].k<=sr+0.5) and (a[i].m/a[i].k>=sr-0.5)
then writeln('Passager N',a[i].n);
end;

readln;
end.

Ругается на то, что модуль

uses SysUtils

не найден может из за того, что это сделано в делфи?! я то на паскале работаю.

[Stilet]

Ну так убери его.
И директиву тоже, ато компилятор заулыбается )

[d00ker]

Ну так убери его.
И директиву тоже, ато компилятор заулыбается )

убрал, но ответ всегда один

Passager N1