Такой кнопки не существует О_о
Program b;
var
bal:integer;
stip:real;
begin
write('Введите средний балл учащегося: ');
write('Введите стандартную стипендию: ');
readln(bal,stip);
if bal>=4 then stip:=stip+(stip/2) else
stip:=stip;
writeln('Стипендия учащегося: ',stip);
readln;
<span>end.
Как я понял по условию, нужно посчитать стипендию у различных учеников...</span>
Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
1-18 без точки с точкой 19
2-33 без восклицания 34 с
3-15 без восклицания 16 с
все в байтах