Var i,s: integer;
a: array [1..40] of integer;
begin
for i:=1 to 40 do
a[i] := random (17)-11;
writeln ('Массив ',a);
for i:=1 to 40 do
if a[i]>0 then s:=s+a[i];
writeln ('Сумма всех положительных элементов равна ',s)
end.
Var n:integer;
sr:real;
i,s:integer;
begin
writeln('n=');
readln(n);
s:=0;
for i:= 1 to n do
begin
s:=s+i;
sr:=s/n;
end;
writeln('sr=',sr);
readln;
end.
===== PascalABC.NET =====
begin
var n := ReadInteger('Задайте n:');
var a := ReadArrInteger('Вводите массив:', n);
Println('Количество нулевых элементов равно',
a.Count(p -> p = 0))
end.
Саша - П,
Ваня -В
Петя-К
Коля-С
ДОВОЛЬНО ЛЕГКО