Регистрация
Войти
Стать экспертом Правила
Информатика

ПОЖАЛУЙСТА Пожалуйста посчитайте!!!!!!Составить программу в паскальОпрашивается 10 человек. Как узнать сколько человек любят мороженое? Сделать с помощью оператора цикла

ОТВЕТЫ


// 1 - любит мороженое,  0 - не любит.
begin
  var a:= ArrRandom(10, 0,1);a.Println;
  var cnt := 0;
  for var i:= 0 to 9 do
    if a[i] = 1 then inc(cnt);
  Writeln(cnt);
end.

1 1 1 0 0 0 0 1 1 1
6

337
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам