Uses crt;
const M = 100;
var a: array [1..M] of integer;
i, max, k, n: integer;
begin clrscr;
repeat
writeln('Введите количество элементов массива');
readln(n);
until (n <> 0) and (n>0);
for i := 1 to n do
begin
writeln('Введите [', i, '] элемент массива');
readln(a[i]);
end;
for i := 1 to n do
write(' ', a[i]);
writeln;
max := a[1];
for i := 2 to n do
if a[i] > max then max := a[i];
writeln(' max= ', max);
for i := 1 to n do
if a[i] = max then k := k + 1;
writeln(' k= ', k);
<span>end.</span>
Ответ:
8
Объяснение:
Крч смотри, у тебя получается в итоге 2211.
Цикл выполняется, пока у тебя есть хотя бы 3 единицы. 3 единицы ты замечаешь на 2, так как в начале у тебя 2 двойки, то ты делаешь обратную подстановку. 2=111, 22=111111. Там еще есть 2 единицы. 6+2=8.
Проверяем.
На входе число 11111111. Видим 3 единицы и меняем их на 2
211111
Видим след 3 единицы, меняем
2211
Больше 3 единицы не нашлось, значит это финальный ответ
Ответ 1.25986667 м
Объяснение:50120 : 1024=25
25600:506=50.592...
25+50.592=
Способы противодействия компьютерным вирусам можно разделить на несколько групп:
· профилактика вирусного заражения и уменьшение предполагаемого ущерба от такого заражения;
· использование антивирусных программ, в том числе для обезвреживания и удаления известного вируса;
· обнаружение и удаление неизвестного вируса.
<span />