Question

50 баллов. PASCAL! В массиве хранится информация о среднедневной температуре ноября (случайные числа от -5 до 10). Определите, был ли в этот период хотя бы один день с отрицательной температурой, и если да, выведите дату первого такого дня. Указание: Осуществите поиск отрицательных элементов. Если отрицательный элемент найден, поместите в переменную k его индекс и прервите цикл командой break, тогда в переменной k останется индекс первого из найденных элементов.

Answer 1

Ответ:

program z1;

var t:array[1..30]of integer;

i,k:integer;

begin

k:=0;

write('Температура: ');  

for i:= 1 to 30 do  

begin

t[i]:= random(16)-5;

write(t[i]:3)

end;

writeln;

for i:= 1 to 30 do

if t[i]<0 then

begin

k:=i;

write('Первый день с отрицательной температурой ',k);

break

end

end.