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

238

305

Посмотреть ответы 2

Ответы на вопрос:

Pavel1810

Информатика

4,6(16 оценок)

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]);