1. описать структуру данных "студент" с атрибутами: факультет, группа,
адрес, год рождения, учебное заведение, рейтинг на курсе. указать операции,
определенные для этой структуры. указание: например, операция "удалить (отчислить)
студента".
2. составить и описать структуру данных, наиболее удобную для поиска наибольшего и
наименьшего из заданных произвольных чисел. указание: эта структура –
вектор (одномерный массив).
3. составить и описать структуру данных, наиболее удобную для поиска количества
различных чисел в заданной таблице натуральных чисел. указание: эта структура –
матрица (двумерный массив).
var a, i, kol :integer;
begin
for i:= 1 to 3 do begin readln(a); if a > 0 then inc(kol); end; writeln(kol);
end.
program task2;
var n, result :integer;
function summa (x :integer) :integer; var i, sum :integer; begin for i:= 1 to x do sum:= sum + i; summa:= sum; end;
begin
readln(n); result:= summa(n); writeln(result);
end.
program task3;
var i, n, growth, sum, kol :integer; SrGrowth :real;
begin
readln(n); sum:= 0; kol:= 0; for i:= 1 to n do begin readln(growth); sum:= sum + growth; inc(kol); end; SrGrowth:= sum/kol; writeln(SrGrowth);
end.
program task4;
var l :integer;
begin
readln(l); l:= l div 100; writeln(l);
end.