profile
Опубликовано 5 лет назад по предмету Информатика от Pelio

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

  1. Ответ
    Ответ дан MrAtarusama
    //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.

Самые новые вопросы