Предлагаю вариант в VBA Excel
Код программы можно увидеть нажав Alt+F11
Var m:array[1..10] of integer; i,max,cnt:integer;
begin
max := -1000;
write('Massive: ');
for i := 1 to 10 do begin
m[i] := random (11)-5;
write(m[i],' ');
if m[i] > max then begin inc(cnt); max := m[i]; end;
end;
writeln;
writeln('Максимальное число: ',max);
writeln('Всего максимальных чисел: ', cnt);
end.
var i:real;
begin
i:=4.4;
while i<6.5 do begin
writeln(i);
i:=i+0.2;
end;
end.
Var n, i, sum: integer;
begin
read(n);
sum := 0;
for i:=1 to n do
sum := sum + (2*i-1);
writeln(sum);
end.
Ввод
Монитор
Окно
Курсор
ОН( первый раз), СЛОН( ВТОРОЙ РАЗ), СМЕШОН( ТРЕТИЙ РАЗ) ОКОНЧАТЕЛЬНО( 4 раз) и АНТОН( 5 раз)
Ответ: 5 раз