в массиве хранится информация о количестве осадков(целые числа),выпавших за каждый день...

Question

в массиве хранится информация о количестве осадков(целые числа),выпавших за каждый день прошедшей недели.Вывести номера дней,когда осадков не было

Answer 1

uses crt;
var i:integer;
a:array[1..7] of integer;
begin
for i:=1 to 7 do begin
a[i]:=random(10);
write(a[i]:3);
end;
writeln;
write('Номера дней, в которые не было осадков: ');
for i:=1 to 7 do begin
if a[i]=0 then write(i:2);
end;
writeln;
end.

Здесь количество осадков - случайная цифра от 0 до 9. Если нужно сделать ввод чисел вместо случайных, вместо строчки  a[i]:=random(10); пишем read(a[i]);