Информатика, опубликовано 2018-08-22 21:41:55 by Гость
Помогите, пожалуйста составить программу:)В массиве а1, а2, ..., а50 определить количество нулей
Ответ оставил Гость
Const n=50;
var a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do begin
a[i]:=random (21)-10;
if a[i]=0 then k:=k+1;
write (a[i]:4);
end;
writeln (кол-во нулей =,k);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.