ПОЖАЛУЙСТА помогите!!!!!! Составить программу в паскаль Опрашивается 10 человек. Сколько...

0 голосов
16 просмотров

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


Информатика (117 баллов) | 16 просмотров
Дан 1 ответ
0 голосов
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
// 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

(8.8k баллов)