Заполнить двумерный массив Е (5*3) с клавиатуры. Найти среднее арифметическое всех элементов массива

@Skidrow · Регистрация: 05.11.2015

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

Заполнить двумерный массив Е (5*3) с клавиатуры. Найти среднее арифметическое всех элементов массива.

@ArtemNK · 05.11.2015, 10:14

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils;
 
var a:array [1..5,1..3] of integer;
    i,j:integer;
    sum:integer;
begin
  try
    for i := 1 to 5 do
      for j := 1 to 3 do begin
        Write('a[' + IntToStr(i) + ',' + IntToStr(j) + ']= ');
        ReadLn(a[i,j]);
        sum := sum + a[i,j];
      end;
      WriteLn(sum/15:5:2);
    ReadLn;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

@Skidrow 0 / 0 / 0 Регистрация: 05.11.2015 Сообщений: 5
		1
	Заполнить двумерный массив Е (53) с клавиатуры. Найти среднее арифметическое всех элементов массива 05.11.2015, 08:30. Показов* 1408. Ответов 1 Метки нет (Все метки) Заполнить двумерный массив Е (5*3) с клавиатуры. Найти среднее арифметическое всех элементов массива. 0

	05.11.2015, 10:14

Заполнить двумерный массив Е (5*3) с клавиатуры. Найти среднее арифметическое всех элементов массива

Решение