Предмет: Информатика,
автор: KQTO
Напишите на паскале. Задание: Найти сумму тех элементов массива А[1 .. N],
которые удовлетворяют условию |Ai| < i2.
Ответы
Автор ответа:
0
const m = 100;
var a: array[1..m] of integer;
i,n,s: integer;
begin
write('N = '); readln(n);
randomize;
writeln('массив:');
s:=0;
for i:=1 to n do
begin
a[i]:=random(-50,50);
write(a[i],' ');
if abs(a[i])<i*i then s:=s+a[i];
end;
writeln;
writeln('сумма: ',s);
end.
var a: array[1..m] of integer;
i,n,s: integer;
begin
write('N = '); readln(n);
randomize;
writeln('массив:');
s:=0;
for i:=1 to n do
begin
a[i]:=random(-50,50);
write(a[i],' ');
if abs(a[i])<i*i then s:=s+a[i];
end;
writeln;
writeln('сумма: ',s);
end.
Похожие вопросы
Предмет: Математика,
автор: anatolijbugor4
Предмет: Английский язык,
автор: lkek3616
Предмет: Физика,
автор: didimm
Предмет: Литература,
автор: dzibovazarema19
Предмет: Алгебра,
автор: xryapina021