прикладная математика

если подходить с точки зрение результата - да это правильно, если с точки зрение правильности алгоритма, использование и т.д. - асболютно нет

На такой случай:
Ты на меня тоже не обижайся, но ты для меня не слишком авторитетен, что-бы я в серъёз принимал твои "наставления":)

мм)) та не вопрос:) аж зажаждал я этой замены:))
только давай при условии, что эта проверочка будет по силам мне или нам, кому ты там собрался её делать:)

главное её не проспать, как сегодня, только немного жалко что это была первая пара по Пр. на которую я не попал:)

та ну смотря какое задание будет, если такое, какое AID задал мне, что я сходу и написал, то на раз-два))

program laba7;
uses crt;
type exam = record
fio:string[10];
nom:integer;
fak:string[20] ;
plos:real;
end;
mass = array [1..5] of exam;
var stud: mass;
num:integer;
procedure inputStud (var inpNum: integer);
var i:integer;
begin
clrscr;
write ('vvedite chislo obshag');
readln (inpNum);
for I:=1 to inpnum do
begin
write ('vvedite FIO ',I,' [20]: ');
readln (stud[I].fio);
write ('vvedite nomer komnati ',I,': ');
readln (stud[I].nom);
write ('vvedite fakultet ',I,' [20] : ');
readln (stud[I].fak);
write ('vvedite ploshad ',I,': ');
readln (stud[I].plos);
writeln;
end;
end;
procedure Outline (line: Integer);
begin
write (stud[line].fio:20);
write (stud[line].nom:6);
write (stud[line].fak:20);
write (stud[line].plos:6);
writeln;
end;
procedure outStud (outNum: integer);
var I: integer;
begin
clrscr;
writeln ('fio':20,'nomer':6,'fakultet':20,'ploshad':6);
for I:=1 to outNum do Outline (I);
end;
begin
inputStud (num);
outstud (num);
readln;
end.

Возьми ещё одну переменную, после того как прочтёшь все данные сравнивай площадь, начиная с первой до последней, если в какой-то из комнат площадь меньше, то этой переменной присвой номер записи в массиве, когда весь массив пройдёшь - writeln(kmin);
:)

Я только одного в твоём коде не пойму, зачем запрашивать количество общаг?)
Тебе же в задании сказано, что дано 5 комнат и всё, про общаги даже речь не идёт...=> кусок кода вообще в никуда..:)
Плюс он ещё громоздкий такой:)

блин чет я в конец запутался. можеш в мой код ето как нить вписать??

да)) прост мне нужно чтоб это были записи. условие такое

Ок, только на это мне ответь:)
Делать всё таки для одной общаги? (5 комнат) как в условии?

да:)

type Kom=record
fam:string[20];
nom:array[1..5]of byte;
fak:string[10];
pl:array[1..5]of real;
end;
var
tekkom:kom;
i:byte;s:real;
begin
for i:=1 to 5 do begin
writeln('Введите фамилию ',i,' студента');
readln(tekkom.fam[i]);
writeln('Введите номер квартиры ',i,' студента');
readln(tekkom.nom[i]);
writeln('Введите факультет ',i,' студента');
readln(tekkom.fak[i]);
writeln('Введите площадь ',i,' студента');
readln(tekkom.pl[i]);end;
for i:=1 to 5 do
if tekkom.pl[i]>s then s:=tekkom.pl[i];
for i:=1 to 5 do
if tekkom.pl[i]<s then s:=tekkom.pl[i];
writeln('Найменьшая площадь: ',s:2:2);
end.