var
i,n, pol: integer; //pol - количество положительных чисел, n - количество всех чисел
a,s: real; //a- вводимое число, s - сумма положительных чисел
begin
pol:= 0; //обнуляем счетчик
s:= 0;
writeln('Введите количество чисел');
readln(n);
for i:= 1 to n do
begin
writeln('Введите число');
readln(a);
if a > 0 then
begin
s:= s + a;
pol:= pol + 1;
end;
end;
writeln('Среднее арифметическое положительных чисел: ', s / pol); {среднее арифметическое равно сумме чисел делить на их количество}
end.
uses crt;
const
Nmax=10;
var
m:array[1..Nmax] of integer;
i,i_min,i_max:byte;
min,max:integer;
begin
ClrScr;
randomize;
writeln('Исходный массив:');
for i:=1 to Nmax do begin
m[i]:=random(-30,30);
write(m[i],' ');
end;
max:=m[1];
min:=m[1];
i_min:=1;
i_max:=1;
for i:=1 to Nmax do begin
if m[i]>max then begin
max:=m[i];
i_max:=i;
end;
if m[i]<min then begin
min:=m[i];
i_min:=i;
end;
end;
writeln;
writeln('Максимальный элемент: ',max,' Его номер: ',i_max);
writeln('Минимальный элемент: ',min,' Его номер: ',i_min);
readln;
end.