Создать модуль для работы с целочисленным массивом

@RazAlex · Регистрация: 15.02.2018

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

Создать модуль для работы с целочисленным массивом.
Задача.
Заданные одномерные массивы H, G и K упорядочить по убыванию. Определить, среднее арифметическое какого массива является наибольшим. Модуль должен содержать необходимые подпрограммы: процедуры формирования, вывода, сортировки и функцию вычисления среднего арифметического.

@JuriiMW · 16.02.2018, 11:12

Pascal

uses myArrays;
 
begin
  var(h,g,k) := (myCreate('H'),myCreate('G'),myCreate('K'));
  WriteLn('Созданы массивы:');
  myPrint('H', h);myPrint('G', g);myPrint('K', k);
  WriteLn('Упорядоченные по убыванию:');
  mySortDest(h);mySortDest(g);mySortDest(k);
  myPrint('H', h);myPrint('G', g);myPrint('K', k);
  WriteLn('Среднее арифметическое каждого массива:');
  WriteLnFormat('<H> = {0}', myAverage(h));
  WriteLnFormat('<G> = {0}', myAverage(g));
  WriteLnFormat('<K> = {0}', myAverage(k));
end.

Pascal

unit myArrays;
 
function myCreate(name : String) := ArrRandomInteger(ReadInteger('Размер ' + name + ' :'));
 
procedure myPrint(name : String; a : array of Integer);
begin Write(name + ' : '); a.Println; end;
 
procedure mySortDest(var a : array of Integer) := a := a.Sorted.Reverse.ToArray;
 
function  myAverage(a : array of Integer) := a.Average;
 
end.

@RazAlex 0 / 0 / 0 Регистрация: 15.02.2018 Сообщений: 7
		1
	Создать модуль для работы с целочисленным массивом 15.02.2018, 17:50. Показов 1033. Ответов 1 Метки нет (Все метки) Создать модуль для работы с целочисленным массивом. Задача. Заданные одномерные массивы H, G и K упорядочить по убыванию. Определить, среднее арифметическое какого массива является наибольшим. Модуль должен содержать необходимые подпрограммы: процедуры формирования, вывода, сортировки и функцию вычисления среднего арифметического. 0

	16.02.2018, 11:12

Создать модуль для работы с целочисленным массивом

Решение