Регистрация
6a6yle4ka
22.07.2020 00:48
Информатика
Есть ответ 👍

Составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 0 до 2 и выводит на экран количество элементов, равных 1

192
278
Посмотреть ответы 2

Ответы на вопрос:

nn814921
nn814921
4,6(6 оценок)
Var ar: array[1..10] of integer; i,k: integer; begin; randomize; writeln('array: '); for i: =1 to 10 do begin; ar[i]: =random(0,2); writeln(ar[i]); if ar[i]=1 then inc(k); end; writeln('result: ',k); end.
KoRmlx
KoRmlx
4,6(69 оценок)
17) создайте программу

Популярно: Информатика