• 
  • 08 January 2021
  Информатика
  • Автор: Monfot

  

  Помогите решить задачи по информатике через Паскаль:
  1. Дана информация о кол-ве осадков за каждый день мая. Определить, в какие дни мая осадков не было.
  2.Последовательно вводят n чисел. Подсчитать сумму отрицательных чисел в этой последовательности.
  
  Заранее спасибо
  

• 
  • 08 January 2021
  • Ответ оставил: Evgesha090

  1.
  var x, i: integer;
  var c : array[1..31] of boolean;
  begin
  c := 0;
  for i:= 1 to 31 do c[i] := false;
  for i := 1 to 31 do begin
  readln(x); if (x = 0) then c[i] := true;
  end;
  writeln('В следующие дни не было осадков: ');
  for i:= 1 to 31 do if (c[i]) then writeln(c[i]);
  readln(i);
  end.
  
  2.
  var x,i,n,c: integer;
  begin
  realn(n);
  for i:= 1 to n do
  begin
  readln(x); if (x < 0) then c := c + x;
  end;
  writeln('Ответ: '); write(c);
  readln(x);
  end.
  
  P.S. На паскале не писал давно. Код не компилировал (ибо его сюда копипастить без последствий нельзя.), так что могут быть незначительные ошибки. + сразу говорю (как программист с некоторым опытом и будучи уже не школьником) - код го*но. Так никто не делает, так никто не пишет, но для "школьного паскаля" достаточно

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (02.04.2026) наш сайт содержит 109576 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы