В массиве хранятся сведения о количестве осадков,выпавших за каждый день января. Определить в какие дни осадков не было. (Решите в Pascal).
Answers & Comments
Neykel
Задание не совсем корректное. Если в массиве хранятся числа и отсутствие осадков принято за "0", то программа выглядит так var i: integer; a: array[1..31] of integer; begin for i:=1 to 31 do read(a[i]); for i:=1 to 31 do if a[i]=0 then write(i, ' '); end.
Answers & Comments
var i: integer;
a: array[1..31] of integer;
begin
for i:=1 to 31 do read(a[i]);
for i:=1 to 31 do
if a[i]=0 then write(i, ' ');
end.