//Pascal ABC.NET v3.1 сборка 1219
Const
n=5;
Var
ar:array[1..n] of real;
i,k:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(3);
write(ar[i]:6);
end;
for i:=1 to n-1 do
if ar[i]=ar[i+1] then k:=k+1;
writeln;
writeln('Res=',k);
end.
Правильный ответ 1 - 3 нуля
Там есть раздел"Вставка или Вставить" И потом "Рисунок или Картинку"
<span>Б) компьютерные вирусы
являются преднамеренной угрозой информации
</span>
Ну если это паскаль то тогда :
program a1;
var a,s,d,max : integer;
BEGIN
writeln('введите 3 числа');
readln(a,s,d);
max:=a;
if max<s then max:=s;
if max<d then max:=d;
writeln('max=',max);
<span>end.</span>