Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon «Одномерные массивы»

«Одномерные массивы» - вопрос №588153

. Даны целые числа n, a1,…,an, где 1≤n≤50. Найти количество и сумму тех членов данной последовательности, которые удовлетворяют условию |ak|<k2.

саняСеребряный
24.03.13
Учеба и наука / Информатика
1 ответ

Лучший ответ по мнению автора

Валентина

program posl;

uses crt; 

var a: array[1..50] of integer;

i,k, s,n:integer;

begin

clrscr;

writeln('vvedite kolichestvo elementov massiva ot 1 do 50');

readln(n); 

writeln('vvedite elementi massiva');

for i:=1 to n do

  readln(a[i]);

k:=0;s:=0;

for i:=1 to n do

  if abs(a[i])<i*i then begin

  k:=k+1;

  s:=s+a[i];

 end;

writeln('kolichestvo=',k);

writeln('summa=',s);

readln;

end. 

Буду благодарна, если отметите как лучший. 
24.03.13
Лучший ответ по мнению автора

Еva
от 100 p.
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее