Учеба и наука
Решено
vip
«Одномерные массивы» - вопрос №588153
. Даны целые числа n, a1,…,an, где 1≤n≤50. Найти количество и сумму тех членов данной последовательности, которые удовлетворяют условию |ak|<k2.
март 24, 2013 г.
-
Всего ответов: 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.
Буду благодарна, если отметите как лучший.
Лучший ответ по мнению автора
Похожие вопросы
Помогите найти алгоритм решения задачи о ранце методом ветвей и границ
сентябрь 1, 2014 г.
Решено
В некоторой стране автомобильный номер длиной 6 символов составляется из заглавных букв
сентябрь 19, 2013 г.