Найти среднее арифметическое всех элементов массива х и номера элементов, имеющих минимальное и максимальное значения

@Катерина1899 · Регистрация: 19.11.2017

Студворк — интернет-сервис помощи студентам

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

@FreudeMan · 17.12.2017, 20:36

Pascal

var x : array [1..18] of real;
    i, k1, k2 : integer;
    min, max, sum : real;
begin
  Randomize;
  Writeln('Массив: ');
  for i := 1 to 18 do
  begin
    X[i] :=random(100);
    Write(x[i], ' ');
    sum:=sum+x[i];
    if i mod 6 = 0   // переход на следующую строку
    then Writeln;
  end;
  max := x[i];
  min := x[i];
  for i:=1 to 18 do  // нахождение max и min элементов массива
  begin
  if min > x[i]
  then begin
    min := x[i];
    k1:=i;
  end;
  if max < x[i]
  then begin
    max := x[i];
    k2:=i;
  end;
  end;
  sum:=sum/18;
  Writeln('Наибольший элемент массива: ', k2);
  Writeln('Наименьший элемент массива: ', k1);
  Writeln('Среднее арифметическое всех элементов массива: ', sum);
end.

@Катерина1899 0 / 0 / 0 Регистрация: 19.11.2017 Сообщений: 1
		1
	Найти среднее арифметическое всех элементов массива х и номера элементов, имеющих минимальное и максимальное значения 17.12.2017, 17:49. Показов 3368. Ответов 1 Метки нет (Все метки) Сгенерировать массив из 18 элементов случайных чисел от 0 до 100. Вывести массив на экран в три строки,по 6 элементов в каждой строке. Найти среднее арифметическое всех элементов массива х и номера элементов, имеющих минимальное и максимальное значения. Помогите, пожалуйста 0

	17.12.2017, 20:36

Опции темы

Найти среднее арифметическое всех элементов массива х и номера элементов, имеющих минимальное и максимальное значения

Решение