<span>Описывается список с полями согласно заданию
type
student = Record
fam: String;
inn: string;
Year: integer;
god_p: integer;
kurs: 1..5;
gruppa: string;
b1, b2, b3: 1..5;
End;
Объявляются необходимые переменные и массив с типом записи</span>
<span>var
spisok: Array [1..N] Of student;
b, a: string;
i, j, k1: Integer;
И заполняется от 1 до N (N=5 установлена константа)
for i := 1 To N Do // идем от 1 до N и заполняем список
with spisok[i] Do
begin
Writeln('Введите фамилию');Readln(fam);
{......}
end;
Потом обрабатывается согласно заданию по вариантам
Скорее всего, что-то типо сортировки по году рождения, самых молодых пихают в начало.(глупо. можно было не городить такой кусок кода, а уместить все в один цикл с проверкой и выводом ИМХО)
Затем выводится 3 фамилии самых молодых
</span>
<span>for i := 1 to 3 do
begin
write(spisok[i].fam);
writeln;
end;</span>
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL,"Russian");
int k=0,s=0,n;
cout<<"Введите размер массива: ";
cin>>n;
int a[n];
for (int i=0; i<n; i++) cin>>a[i];
cout<<"\nВведите K: ";
cin>>k;
for (int i=0; i<n; i++) if (a[i]%k==0) s+=a[i];
cout<<"\nСумма чисел кратных "<<k<<" = "<<s<<endl;
system("PAUSE");
}
Program Max;
Uses Crt;
var a,b,max:real;
begin
clrscr;
write('Введите число а:');
readln(a);
write('Введите число b:');
readln(b);
if (a=b) then writeln('Числа одинаковы')
else begin
max:=a;
if (b>a) then max:=b;
writeln('Наибольшее число:',max);
end;
readkey;
end.
Var a,n: integer;
begin write('Введите a: ');
readln(a);
n:=352346543;
writeln(a,n,a);
<span>end.</span>