pas106461.PAS

Http://emas.su/

http://emas.su/ скачать бесплатно bolalar kerak emas.

emas.su

{* Средние арифметические пяти массивов *}

Unit PAS106461;
Interface
Implementation
Begin
 writeln(' Средние арифметические пяти массивов, состоящих их десяти целых чисел.');
End.

Program pas106461;

Uses pas106461.pas; {* Эту строку можно удалить *}
Const {* Константы *}
  n = 10;
  m = 5;
Type {* Создание новых типов данных *}
  type_numbers = Array[1..n] Of integer;
  type_arr = Array[1..m] Of type_numbers;
  type_average = Array[1..m] Of real;
Var {* В работе нам потребуются переменные: *}
  arr                   : type_arr; {Array Of arrays}
  average               : type_average; {Array Of averages}
  i                     : byte;
  j                     : byte;
Function fill_array() : type_numbers;
Var {* Объявление переменных *}
  i                        : byte;
  a                        : type_numbers;
  Begin
For i := 1 To n Do{* Переменная i увеличивается с 1 до n *}
  fill_array := a;
Function found_average(a : type_numbers);
Var {* Объявление переменных *}
  i   : byte;
  sum : integer;
  Begin
  sum := 0;
For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  sum := sum + a[i];
found_average := sum / n;
End;
Begin
randomize;
For i := 1 To m Do {* Увеличиваем i от 1 до m с шагом 1 *}
  arr[i] := fill_array();
For i := 1 To m Do {* Цикл для i => [1 .. m] *}
  Begin
For j := 1 To n Do {* Увеличиваем j от 1 до n с шагом 1 *}
  write(arr[i, j] : 3);
average[i] := found_average(arr[i]);
writeln(' -- ', average[i] : 6 : 2);
End;
readln
End....