• Составьте программу которая в массиве A из 20 произвольных чисел находит произведение минимального элемента и среднего арифметического элементов данного массива

Ответы 2

  • Здравствуйте! Помогите мне информатикой, вот задание : https://znanija.com/task/22482037
  • Лови)const  k = 20;var  A: array [1..k] of real;  i: integer;  min, average: real;begin  writeln('Enter x:');  for i := 1 to k do  begin    A[i] := random(k);    writeln('A[', i, '] = ', A[i]);  end;    min := A[i];  average := 0;  for i := 1 to k do  begin    average := average + A[i] / k;    if min > A[i] then      min := A[i];  end;    writeln(min * average);end.
    • Автор:

      morales
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years