Question

Помогите, пожалуйста! Срочно нужно! Задайте массив из 10-ти целых случайных чисел в диапазоне от -10 до 10, а затем найдите среднее арифметическое и номер минимального элемента.

Answer 1

//PASCAL

var
  a:array[1..10] of integer;
  i,min:integer; av:real;
begin
  min:=1;
  randomize;
  for i:=1 to 10 do begin
    a[i]:=random(-10,10);
    av:=av+a[i];
    if a[i] <= a[min] then min:=i;
  end;
  av := av / 10;
  writeln('Среднее арифметические: ', av:0:1,#13#10,'Минимальное: ', min);
  readln;
end.