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.

Answer 2

Конечно, вот пример кода на языке Pascal, который решает данную задачу:

pascalCopy code
program NegativeTemperatureCheck;
var
  temperatures: array[1..30] of integer; // Пусть у нас есть массив из 30 элементов
  i, k: integer;
begin
  // Здесь заполняем массив случайными значениями от -5 до 10 (можно изменить диапазон)
  randomize;
  for i := 1 to 30 do
    temperatures[i] := random(16) - 5;

  k := 0; // Инициализируем переменную k нулем
  
  // Проходимся по массиву и ищем первый отрицательный элемент
  for i := 1 to 30 do
  begin
    if temperatures[i] < 0 then
    begin
      k := i; // Записываем индекс первого отрицательного элемента
      break; // Прерываем цикл, так как нашли нужный элемент
    end;
  end;

  // Проверяем значение k, чтобы определить, был ли найден отрицательный элемент
  if k > 0 then
    writeln('В ноябре был хотя бы один день с отрицательной температурой. Дата первого такого дня: ', k)
  else
    writeln('В ноябре не было отрицательных температур.');
end.

Программа создает массив случайных значений температур и затем ищет первый отрицательный элемент в нем. Если такой элемент найден, выводится сообщение с датой первого дня с отрицательной температурой (индекс элемента). Если все элементы положительны, выводится сообщение о том, что отрицательных температур не было.