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

Ответы 1

uses crt;var i:integer;a:array[1..7] of integer;beginfor 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]);
- Автор:
  heisenbergdorc
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы