Главная » Дан массив..Находит номер элемента массива
22:15

Дан массив..Находит номер элемента массива


Задание:

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать любые целые значения. Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит номер элемента массива, наименее отличающегося от среднего арифметического всех его элементов. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.

Паскаль

Естественный язык

  1. const N=30; 
  2. var a: array [1..N] of integer; 
  3.     i, k: integer; 
  4.     s, min: real; 
  5. begin
  6.   for i:=1 to N do readln(a[i]); 
  7.   ...
  8. end.

Объявляем массив A из 30 элементов. Объяв-ляем целочисленные переменные i, k.
Объявляем действительные переменные s, min.
В цикле от 1 до 30 вводим элементы массива A с 1-го по 30-й.
...

Си

 

  1. #include<stdio.h> 
  2. int main(void) { 
  3.     const int N=30; 
  4.     int a[N]; 
  5.     int i, k; 
  6.     float s, min; 
  7.     for (i=0; i<N; i++)
  8.       scanf(″%d″, &a[i]); 
  9.   ...
  10. }

 

 Решение:

Сначала нужно найти (в переменной s) среднее арифметическое всех элементов массива – считаем в цикле их сумму и делим на N. Затем перебираем во втором цикле все элементы массива и ищем тот, для которого модуль разности этого элемента и среднего арифметического наименьший.

Решение на естественном языке. Записываем в переменную s начальное значение 0. В цикле для всех элементов с 1-го до 30-го добавляем значение текущего элемента к переменной s. После окончания цикла делим значение переменной s на N, таким образом, получаем в переменной s среднее арифметическое всех элементов массива. Записываем в переменную k начальное значение 1. В цикле рассматриваем все элементы со 2-ого до 30-ого, если модуль разности текущего элемента и переменной s меньше, чем модуль аналогичной разности для k-ого элемента, записываем в переменную k номер текущего элемента. После окончания цикла выводим значение переменной k.

Решение на Паскале

  1. const N=30;
  2. var a: array [1..N] of integer;
  3.     i, k: integer;
  4.     s, min: real;
  5. begin
  6.   for i:=1 to N do readln(a[i]);
  7.   s:=0;
  8.   for i:=1 to N do s:=s+a[i];
  9.   s:=s/N;
  10.   k:=1;
  11.   for i:=2 to N do
  12.     if abs(a[i]-s) < abs(a[k]-s) then
  13.       k:=i;
  14.   writeln(k) 
  15. end.

Похожие материалы:
Нашли ошибку на сайте? Напишите в комментариях!
Категория: Язык программирования: Паскаль | Просмотров: 44 | Добавил: Ученик | Рейтинг: 0.0/0