Напишите на паскале. Задание: Найти сумму тех элементов массива А[1 .. N],
которые удовлетворяют условию |Ai| < i2.
которые удовлетворяют условию |Ai| < i2.
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.