Question

Сгенерировать массив из 18 элементов случайных чисел от 0 до 100. вывести массив на экран в три строки,по 6 элементов в каждой строке. найти среднее арифметическое всех элементов массива х и номера элементов, имеющих минимальное и максимальное значения. паскаль

Answer 1

1. PascalABC.NET 3.3
const n=18;
begin
  var a:=ArrRandom(n,0,100);
  for var i:=0 to n-1 do begin
    write(a[i],' ');
    if (i+1) mod 6=0 then writeln;
  end;
  writeln('Среднее арифметическое = ',a.Average);
  writeln('max = a[',a.IndexMax,'] = ',a.Max);
  writeln('min = a[',a.IndexMin,'] = ',a.Min);
end.

2.
const n=18;
var a:array[1..n] of integer;
x,max,min,imax,imin,i:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(101);
 write(a[i],' ');
 if i mod 6=0 then writeln;
 end;
x:=0;
max:=a[1]; imax:=1;
min:=a[1]; imin:=1;
for i:=1 to n do
 begin
 x:=x+a[i];
 if a[i]>max then begin max:=a[i]; imax:=i; end;
 if a[i]<min then begin min:=a[i]; imin:=i; end;
 end;
writeln('Среднее арифметическое = ',x/n:6:3);
writeln('max = a[',imax,'] = ',max);
writeln('min = a[',imin,'] = ',min);
end.

Пример:
55 32 51 53 6 82
94 27 43 61 56 20
63 6 92 32 14 84
Среднее арифметическое = 48.389
max = a[7] = 94
min = a[5] = 6