Программа:
type Student=record
FIO:string;
year:integer;
obj:string;
mark:integer;
end;
var
i:integer;
objec:string;
s: array [1..3] of Student;
BEGIN
// 1-ый студент
s[1].FIO:= 'Петров П.П.';
s[1].mark:= 3;
s[1].obj:= 'Математика';
s[1].year:= 1997;
// 2-ой студент
s[2].FIO:= 'Иванов И.И.';
s[2].mark:= 5;
s[2].obj:= 'Математика';
s[2].year:= 1999;
// 3-ий студент
s[3].FIO:= 'Сидоров С.С.';
s[3].mark:= 5;
s[3].obj:= 'Математика';
s[3].year:= 1998;
write('Введите предмет: ');
readln(objec);
writeln('Список студентов по заданным параметрам:');
for i:=1 to 3 do
if (s[i].obj = objec) and (s[i].mark = 5) then
writeln(s[i].FIO, ' - ' , s[i].year)
END.
n, i, s, k:integer;
a:array [1..30] of integer;
begin
writeln('Vvedite massiv');
for i:=1 to 30 do
readln(a[i]);
writeln('Massiv');
for i:=1 to 30 do
write(a[i],' ');
writeln();
k:=0; s:=0;
for i:=1 to 30 do
if a[i]<0 then
begin
s:=a[i]+s;
k:=1;
end;
if k=1 then
writeln('Summa otricatelnih elementov: ',s)
else
writeln('Otricatelnih elementov net');
readln();
end.