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

@Richik123 · Регистрация: 26.12.2011

заданы массивы А1(6)а2)(7)А(14).найти среднее арефметическое значение элементов массива и определить масимальное среди них .нахождение среднеарефметического элементов массива оформить в виде подпрограммы. зазаполнение массивов на печать оформить в виде подпрограмм.

@BumerangSP · 15.03.2012, 19:45

Pascal

uses crt;
const n = 6;
type mas = array [0..13] of integer;
var  i,s,s1,s2: integer;
     a,a1,a2: mas;
procedure init(var m: mas; n1: integer);
var i: integer;
begin
 for i:=1 to n1 do
  begin
   m[i]:=random(50);
   write(m[i]:3);
  end;
 writeln;
end;
 
function sr(m: mas; n1: integer): integer;
var sum: integer;
begin
 for i:=1 to n1 do
  sum:=sum+m[i];
 sr:=trunc(sum/n1);
 writeln;
end;
 
begin
  init(a,n);
  s:=sr(a,n);
  init(a1,n+1);
  s1:=sr(a1,n+1);
  init(a2,n*2);
  s2:=sr(a2,n*2);
  writeln('Sr1=',s,', sr2=',s1,', sr3=',s2);
  if s1>s then
   s:= s1;
  if s2>s then
   s:= s2;
  writeln('Max = ',s);
end.

@Richik123 4 / 4 / 1 Регистрация: 26.12.2011 Сообщений: 263
		1
	Найти среднее арифметическое значение элементов массива и определить масимальное среди них 15.03.2012, 17:17. Показов 1085. Ответов 1 Метки нет (Все метки) заданы массивы А1(6)а2)(7)А(14).найти среднее арефметическое значение элементов массива и определить масимальное среди них .нахождение среднеарефметического элементов массива оформить в виде подпрограммы. зазаполнение массивов на печать оформить в виде подпрограмм. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

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

Решение