Учеба и наука

Решено

Необходимо организовать ввод двумерного массива указанным способом, произвести обработку массива, организовать поиск в массиве.Размер массива 3X3... - вопрос №1217362

целые.Способ ввода присваиванием конкретных значений элементам массива.Способ вывода массива осуществить в виде матрицы.Обработка массива Среднее арифметическое элементов массива.Поиск Max во 2 столбце.

октябрь 19, 2014 г.

Сообщить о нарушении

Всего ответов: 1

Анатолий

31-й в

10 отзывов

program arr;

const N:integer = 3;

var a:array [1..N, 1..N] of integer;
max, i, j:integer;
sr:real;
begin
for i:=1 to N do
for j:=1 to N do
begin
write('Введите элемент a[',i,',',j,'] = ');
readln(a[i,j]);
end;
writeln;
sr:=0;
max:=a[1,2];
for i:=1 to N do
begin
for j:=1 to N do
begin
sr:=sr + a[i,j];
write('a[',i,',',j,'] = ',a[i,j],' ');
if (max < a[i,j]) and (j = 2) then max:=a[i,j];
end;
writeln;
end;
writeln;
writeln('Среднее значение = ', sr/9);
writeln('Максимальный элемент во втором столбце = ', max);
end.

В следующий раз обращайтесь ко мне в чат.