• Определить, сколько в массиве подряд идущих пар элементов с одинаковым значением.

Ответы 1

  • //Pascal ABC.NET v3.1 сборка 1219Const 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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years