Информатика, опубликовано 2018-08-22 21:26:22 by Гость
Составьте программу , которая заполняет массив а[1..10 ] случайными целыми числами в диапазоне от 0 до 2 и выводит на экран количество элементов, равных 1,
Ответ оставил Гость
Var
a:array [1..10] of longint;
i,j:longint;
begin
for i:=1 to 10 do
a[i]:=random(3)+0;
for i:=1 to 10 do
if a[i]=1 then inc(j);
writeln(j);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.