ПОМОГИТЕ РЕШИТЬ ЗАДАЧИ "ОДНОМЕРНЫЕ МАССИВЫ" ПО ИНФОРМАТИКЕ ПОЖАЛУЙСТА БЫСТРЕЕ!. ЗА ПРАВИЛЬНЫЕ ОТВЕТЫ ЛАЙКАЮ

На каком языке программирования составить программы?
Вот, например, на Паскале:
№1.
1) Программа:
Program P1;
uses crt;
var A: array [1..11] of real;
i: integer;
n, p, o: real;
begin
clrscr;
for i:=1 to 11 do begin
write ('Введите элемент массива: ');
readln (A[i]);
end;
n:=0;
p:=0;
o:=0;
for i:=1 to 11 do begin
if A[i]>0 then p:=p+1;
if A[i]=0 then n:=n+1;
if A[i]<0 then o:=o+1;
end;
writeln ('Количество положительных элементов: ', p);
writeln ('Количество нулевых элементов: ', n);
writeln ('Количество отрицательных элементов: ', o);
readkey;
end.
2) При заданном массиве A={7, 25, 4.5, 0, 17, 61, -10, 0, 1, -4, 22}:
Количество положительных элементов равно: 7
Количество нулевых элементов равно: 2
Количество отрицательных элементов равно: 2
№2.
1) Программа:
Program P2;
uses crt;
var A: array [1..11] of real;
i: integer;
p: real;
begin
clrscr;
for i:=1 to 11 do begin
write ('Введите элемент массива: ');
readln (A[i]);
end;
p:=1;
for i:=1 to 11 do begin
if A[i]<>0 then p:=p*A[i];
end;
writeln ('Произведение ненулевых элементов массива: ', p);
readkey;
end.
2) При заданном массиве A={7, 25, 4.5, 0, 17, 61, -10, 0, 1, -4, 22}:
Произведение ненулевых элементов массива равно: 718641000
№3.
1) Программа:
Program P3;
uses crt;
var a: array [1..11] of real;
i: integer;
s: real;
begin
clrscr;
for i:=1 to 11 do begin
write ('Введите элемент массива: ');
readln (a[i]);
end;
s:=0;
for i:=1 to 11 do begin
s:=s+a[i];
end;
s:=s/11;
writeln ('Среднее арифметическое элементов массива: ', s);
readkey;
end.
2) При заданном массиве A={7, 25, 4.5, 0, 17, 61, -10, 0, 1, -4, 22}:
Среднее арифметическое элементов массива равно: 11,22(72).

➡️