Как-то так, заранее благодарен)Срочно

[Inquisitor1]

Помогите пожалуйста,заранее спасибо))
как,исходя из этого кода,вывести всю информацию о студентах зачисленных по одному номеру наказа.
Это же и : Nomer nakazu pro zarahuvannia и nzpz

type student=record
nsb:word;
phn:string[30];
nzpz:word;
end;
var
Vidomosti:array[1..30]of student;
i,k,j:word;
begin
writeln('Vvedit kilkist studentiv');
readln(k);
for i:=1 to k do
begin
with Vidomosti[i] do
begin
writeln('Nomer students`kogo biletu'); readln(nsb);
writeln('Phorma navchannia'); readln(phn);
writeln('Nomer nakazu pro zarahuvannia'); readln(nzpz);
end;
end;
end;

[type_Oleg]

То есть пользователь вводит этот номер наказа nzpz, и выводятся только эти студенты ?
Тогда вот так ..

 writeln('Vvedit nzpz');
 readln(j);
 for i:=1 to k do 
  with Vidomosti[i] do if nzpz=j then 
   begin
    writeln('Nomer students`kogo biletu'); Writeln(nsb);
    writeln('Phorma navchannia'); Writeln(phn);
   end;
// ...

[Inquisitor1]

Сообщение от type_Oleg

То есть пользователь вводит этот номер наказа nzpz

Нет.Пользователь не вводит...Нужно найти по данным которые были внесены до этого.

[ViktorR]

Для обращения к элементу записи используют такую форму:

<имя_переменной_типа_запись>.<элемент_записи>

В приведенном примере можно написать:
<Заголовок_цикла>
...
begin
writeln(Vidomosti[i].nsb);
и т.д.
end;
...
<конец_цикла>;

PS: Это только схема. Надеюсь, что понятно и это то ...


Как-то так, ...