Ответы и объяснения

  • ali07
  • главный мозг
2011-05-24T19:33:38+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

Программа на Паскале:

Program aaa;

Var i, k : integer;

      b : array [1..6] of real;

Begin

  for i :=1 to 6 do

    readln (b[i];

  k:=0;

  for i:=1 to 6 do

    if b[i' = 3 then k:=k+1;

  writeln('кол-во элементов равных 3 =', k);

  readln;

end.