50 баллов. PASCAL! В массиве хранится информация о среднедневной температуре ноября (случайные числа от -5 до 10). Определите, был ли в этот период хотя бы один день с отрицательной температурой, и если да, выведите дату первого такого дня. Указание: Осуществите поиск отрицательных элементов. Если отрицательный элемент найден, поместите в переменную k его индекс и прервите цикл командой break, тогда в переменной k останется индекс первого из найденных элементов.
More Questions From This User See All
Answers & Comments
Ответ:
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.