//Pascal
var a,s:integer;
begin
s:=0;
repeat
readln(a);
s:=s+a;
until a=0;
writeln(s);
end.
var i,s,a,k: integer;
begin
for i:=1 to 8 do
begin
readln (a);
if a>0 then
begin
s:=s+a;
k:=k+1
end
end;
writeln;
writeln ('Среднее арифметическое положительных чисел: ',s/k)
end.
#include <iostream>
int main() {
short int n, n1, i, j;
long long int s, k, c;
std::cin >> n;
s = 0;
for (i = 1; i <= n; i++) {
std::cin >> n1;
c = 1;
k = 0;
for (i = 2; i <= n1; i++) {
k += c;
c++;
}
s += k;
}
std::cout << s << std::endl;
std::cin.get();
return 0;
}
Program n1;
const n=13;
var a: array [1..n] of integer;
i,sum:integer;
begin
randomize;
sum:=0;
write('исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(50);
write(a[i],' ');
if a[i]*4>a[i]*a[i] then sum:=sum+a[i];
end;
writeln;
write('искомая сумма: ',sum);
end.