• 
  • 15 April 2021
  Информатика
  • Автор: morebrains

  

  В массиве из 12 элементов, заданных по формуле F[i]=i^2-5i-14
  Найдите сумму положительных значений (pascal abc)

• 
  • 15 April 2021
  • Ответ оставил: Alphaeus

  Program morebrains;

  const

   n = 12; {Количество элементов массива}

  var  

   F:array[1..n] of integer;

   s:string;

   i,sum:integer;

  begin

   s:='**** -=Alphaeus=- ****';

   for i:=1 to 22 do begin write(s[i]); sleep(42) end;

  {заполняем массив}

   writeln;  

   for i:=1 to n do F[i]:=i*i-5*i-14;

  {Ищем сумму положительных}

   sum:=0;

   for i:=1 to n do

     if F[i]>0 then sum:=sum+F[i];

  {Выводим сумму}

   writeln;

   writeln('Сумма положительных элементов равна ',sum);

  end.

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

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

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

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

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