Задача: Массив записей record
Описание
Характеристики решённой задачи
Список файлов
- 1.2.txt 1,06 Kb
program Project1;
type
TStudent=record //задаём свой тип данных record
name:string[20];
fam:string[30];
balls:integer;
end;
var
A:Array[0..10] of Tstudent;
N,I,J:Integer; //i,j-счётчики циклов, n-количество наших студентов, которое является длиной массива
begin
Write('Vvedite koli4estvo: ');
ReadLn(N);
for i:=1 to n do
with a[i] do
begin
Write('Imya: ');
ReadLn(name);
Write('Familia: ');
ReadLn(fam);
Write('Ball: ');
ReadLn(balls); //ввод информации
end;
I:=1;
while I<=N do
begin
if a[i].balls<12 then //если подходит под условие удаления
begin
for J:=I to N-1 do //заменяем данный эл-нт массива на стоящий после него
A[J]:=A[J+1];
N:=N-1; //сокращение длины на 1, т.к. последний и предпоследний эл-ты стали одинаковыми
end
else
I:=I+1;
end;
for j:=1 to N do
Write(a[j].name,' ',a[j].fam,' ',a[j].balls,', '); //вывод информации на экран через запятую без сортировки
ReadLn;
end.