Отредактируйте, пожалуйста.В заданном двумерном массиве найти индексы первого элемента,

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

uses crt;
var b: array[1..1000, 1..1000] of integer;
sum, kolvoel, i, j, n : integer;
srar:real;
begin
randomize;
n:=0;
writeln('Vv razmer matrici');
readln(n);
kolvoel:=sqr(n);
sum:=0;
srar:=0;
for i:=1 to n do
for j:=1 to n do
begin
b[i,j]:=random(2*20+1)-20;
end;

for i :=1 to n do vivod matr
begin
for j :=1 to n do
write ( b [ i, j ]:4);
writeln ;
end;

for i:=1 to n do
for j:=1 to n do
sum:=b[i,j]+sum;

srar:=sum/kolvoel;
writeln('srasr=',srar);
for i:=1 to n do
for j:=1 to n do
begin
if b[i,j]gt;srar then
writeln('i=',i,'j=',j);
break;
end;
end.

Кирилл Аникин-Меньшиков 2019-07-31 14:25:48

А что не устраивает?

Инна Габдуллина 2019-07-31 14:29:36

Оно выводит построчно. Желая честно, я не сообразил до конца, что в условии желают. Если только 1-ый элемент массива вообще, то я со собственной программой пролетаю.

Юрик 2019-07-31 14:32:49

Чего "выводит построчно"? Если Вы не разумеете, чего желаете, как нам это осознать?

Ульяна Шакута 2019-07-31 14:33:50

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

Тема Балтакса 2019-07-31 14:37:59

А надобно только один? Тогда обрисовать логическую переменную - флаг выхода, присвоить ей False. Дальше, вместо циклов со счетчиком сделать циклы с постусловием. i:=1; Repeat j:=1; Repeat if b[i,j]>srar then Flag:=True else j:=j+1 until (j>n) or Flag; if (not Flag) then i:=i+1 unitl (i>n) or Flag; Writeln(...) end.

Igor Rabizo 2019-07-31 14:42:31

В тексте - смена строчки

Шурик Жаренко 2019-07-31 14:50:15

И нет "неприятного" break, который многие преподаватели информатики органически ненавидят.

Jana 2019-07-31 14:56:57

Спасибо!