[ 25 Б ] Информатика #8 (Гвоздика&Ромашка&Роза)

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.

Program MinMax
var a: array [1..100] of real
var i, nmin, nmax: integer, min, max: real
BEGIN
for i := 1 to 100 do read a[i]; // вводим массив
min := a[1]; max := a[1]; nmin := 0; nmax := 0;
for i := 1 to 100 do
begin
if a[i] = min then nmin := nmin + 1;
if a[i] = max then nmax := nmax + 1;
if a[i] < min then begin min = a[i]; nmin := 1; end
if a[i] > max then begin max = a[i]; nmax := 1; end
end;
if nmin > nmax then write ('Min')
if nmin < nmax then write ('Max')
if nmin = nmax then write ('Ravno')
END.