var
ball: array [1..30] of integer;
s: string;
n, i, sum,count: integer;
sred: real;
begin
count:=0;
Writeln('Введите колличество учащихся: ');
readln(n);
Writeln('Введите оценки: ');
for i := 1 to n do
Read(ball[i]);
for i := 1 to n do
if ball[i] > 2 then
begin
sum += ball[i];
Inc(count);
end;
sred := sum / count;
Writeln('Учеников сдавших экзамен: ', count);
Writeln('Учеников не сдавгих экзамен: ', n-count);
Writeln('Средняя оценка сдавших: ', sred:6:2);
end.
var a,b,c,d,res: integer;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
write('Введите d: ');
readln(d);
res := a;
// Проверяем число b
if (b mod 10 > res mod 10) then res:=b
else if (b mod 10 = res mod 10) then
begin
if (res<b) then res:=b;
end;
// Проверяем число c
if (c mod 10 > res mod 10) then res:=c
else if (c mod 10 = res mod 10) then
begin
if (res<c) then res:=c;
end;
// Проверяем число d
if (d mod 10 > res mod 10) then res:=d
else if (d mod 10 = res mod 10) then
begin
if (res<d) then res:=d;
end;
writeln('Число с наибольшей последней цифрой: ',res);
end.
