Дан двумерный массив. Найти среднее арифметическое элементов, расположенных в четырех углах

@svjk · Регистрация: 14.05.2013

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

Дан двумерный массив. Найти среднее арифметическое элементов, расположенных в четырех углах.

Kodzaev · 16.06.2013, 20:05

Pascal

var
  x: array [1..10, 1..10] of integer;
  i, j, n, m: byte;
 
begin
  Randomize;
  Write('N = ');
  ReadLn(n);
  Write('M = ');
  ReadLn(m);
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      x[i, j] := Random(100);
      Write(x[i, j]:4);
    end;
    WriteLn
  end;
  WriteLn('Ср. арифм. эл-тов, расположенных в четырех углах = ', (x[1, 1] + x[1, m] + x[n, 1] + x[n, m]) / 4:2:2);
  Readln
end.

@svjk 6 / 6 / 4 Регистрация: 14.05.2013 Сообщений: 34
		1
	Дан двумерный массив. Найти среднее арифметическое элементов, расположенных в четырех углах 16.06.2013, 19:47. Показов 1878. Ответов 1 Метки нет (Все метки) Дан двумерный массив. Найти среднее арифметическое элементов, расположенных в четырех углах. 0

Опции темы

Дан двумерный массив. Найти среднее арифметическое элементов, расположенных в четырех углах

Решение