Прости непонял твоего вычисления
1. var a:array[1..100] of integer;
i,s:integer;
begin
for i:=1 to 25 do begin
a[i]:=random(5)+1;
write(a[i]:4);
end;
s:=0;
for i:=1 to 25 do begin
if a[i]<=2 then s:=s+1;
end;
writeln;
writeln('Количество неуспевающих=',s);
end.
это при условии,что человек неуспевающий,если у него оценка ниже или равна 2-ке
Не трундая задача. Приступим.
Пусть а - первое число, б - второе число, с - третье число.
Четное число - 2n
If (a+b+c) div 2 = 0 then writeln ('Их сумма четное число') else writeln ('Их сумма нечетное число');