Question

40 баллов !!!В массиве хранится информация о количестве осадков (в мм) ,выпадающих ежедневно в октябре (случайные числа от 0 до 10). Составьте программу (в pascal abc) ,которая выводит даты ясных дней и вычисляет их количество . СРОЧНО!!!

Answer 1

Ответ:

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.