Program n1;
var i, S: integer;
begin
S:=0;
for i:=1 to 99 do S:=S+i;
writeln(S);
end.
Если в секундах получается 1,8 секунда, а если в минутах то 0,03 минуты.
Uses crt;
var five,two,a,N,i: integer;
begin
clrscr;
five:=0;
two:=0;
readln (N); // кол-во учеников
i:=1 to N do
begin
read (a); // ввод оценок через пробел
case a of // выбор и подсчёт кол-ва
2: two:=two+1;
5: five:=five+1;
end;
end;
writeln ('Five: ',five); // вывод результата
writeln ('Two: ',two);
readln ();
<span>end.</span>
Существенный признак слова "дюйм"<span> </span><span>— это единица измерения расстояния</span><span>.</span>
Максимальным значение в наборе из 8 чисел является 6, а минимальным - 2.
Двойка стоит в третьей позиции, соответственно 3 - это и есть искомый номер максимального либо минимального числа.