На паскале заполнить массив из 10 элементов случайными числами от [0,5) и найти количество единиц

2

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

  • pslk
  • середнячок
2013-05-03T21:28:18+04:00

const n=10;

var k:arrya[1..n] of integer; i, w:integer;

begin

randomize;

for i:=1 to n do begin

k[i]:=random(5);

if (k[i]=1) then w:=w+1;

end;

write('Кол-во единиц', w);

end.

2013-05-04T03:13:43+04:00

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

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

program edinica;
var r:array[1..n] of integer; i, e:integer;
begin
  n := 10;
  e := 0;
  randomize;
  for i := 1 to n do
  begin
    r[i] := random(5);
    if (r[i]=1) then e:=e+1;
  end;
  writeln('Количество единиц в массиве', e);
end.