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

[Кристина Н]

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

[Zer0]

sredneeArifmeticheskoe:=(a[1,1]+a[1,m]+a[n,m]+a[n,1])/4;

где n,m-размерности массива

[Кристина Н]

у меня не получается... может я что-то не так делаю.... сделайте пожалуйста по подробнее..... заранее спасибо

[Mad_Cat]

у меня не получается... может я что-то не так делаю

Покажи как делаешь

[Кристина Н]

щас мин снова сделаю...удалила уже

[Leshii]

Код уже готов. Ждем с вас мадам

[Кристина Н]

Да не получается у меня )))) смешить не хочу своей писаниной

[Leshii]

Нууу, а я сюда не посмеяться прихожу =) Хотя и такое бывает.
Покажите уж что сделали, к той формуле всего-то ввод добавить, цикл для подсчёта и вывод.
Так что показывайте не стесняйтесь.

[Mad_Cat]

Да не получается у меня )))) смешить не хочу своей писаниной

где то вы нас обманываете по-моему)

[Leshii]

Та обманывает ( хочется покаяния в виде написанной ею программы ). Какбэ тут не ... сидят
Просто если вам программирование не надо то так и скажите мол "не знаю и знать не хочу ". Тут же не суд чтоб вас судить.
Так вот, где же ваша программа ?

Program arf;
Uses crt;
const n= 4;m= 4;
var a: array [1..n,1..m] of integer;
    i, j: integer;
	arifm: real;
begin
clrscr;
for i:=1 to n do
 for j:=1 to m do begin
     write('Vvedite elementu massiva A[',i,',',j,']:=');
	 readln(A[i,j]);
 end;
 for i:=1 to n do
  for j:=1 to m do begin
    arifm:=(a[1,1]+a[1,m]+a[n,m]+a[n,1])/4;
  end;
    writeln('Sred. arifm yglovux elem. massiva ravno:=',arifm:3:2);
readln;
end.

Если что, меня я думаю поправят. Я тоже ошибаюсь тоже не всё умею делать, и не всегда все получается но я просто пробую и делаю.
Успехов вам И не обижайтесь на сказанное выше, просто все тайное рано или поздно станет явным.