40 баллов !!!В массиве хранится информация о количестве осадков (в мм) ,выпадающих ежедневно в октябре (случайные числа от 0 до 10). Составьте программу (в pascal abc) ,которая выводит даты ясных дней и вычисляет их количество . СРОЧНО!!!
More Questions From This User See All
Answers & Comments
Ответ:
const n=31;
var a:array[1..n] of integer;
i,k,sum:integer;
BEGIN
for i:=1 to n do
a[i]:=random(10);
sum:=0; k:=0;
for i:=1 to n do
if a[i]=0 then
begin
write(i,' ');
sum:=sum+1;
end;
writeln;
writeln(sum);
END.