Блок-схема для нахождения суммы наибольших значений элементов столбцов двумерного массива

@Chasovoy · Регистрация: 05.04.2014

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

Программирование двумерных массивов. Дан двумерный числовой массив. Найти сумму наибольших значений элементов его столбцов

Pascal

Program z5;
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
m,n,i,j:byte;
sm,mx:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(20);
write(a[i,j]:4);
end;
writeln;
end;
writeln;
sm:=0;
for i:=1 to n do
begin
mx:=a[i,1];
for j:=1 to m do
if a[i,j]>mx then mx:=a[i,j];
sm:=sm+mx;
writeln('Макс. в стр. ',i,'=',mx);
end;
write('Сумма максимальных=',sm);
readkey;
end.

Количество строк до 20 n=5
Количество столбцов до 20 n=4
Исходная матрица:
0 7 18 19
3 16 3 13
13 11 2 14
8 12 17 18
18 7 12 11

Макс. в стр. 1=19
Макс. в стр. 2=16
Макс. в стр. 3=14
Макс. в стр. 4=18
Макс. в стр. 5=18
Сумма максимальных=85

Прошу сделать блок-схему, так как нужно очень срочно... Пожалуйста!!! Заранее благодарен)))

magirus · 05.04.2014, 09:01

ну нужна - так рисуй. а если что то непонятно спрашивай... за тебя что ли нарисовать?

@Chasovoy · 05.04.2014, 09:15 **[ТС]**

Извините, я учусь заочно-дистанционно, а ранее я не составлял блок-схемы. Еле в Паскале кое как научился...

Добавлено через 40 секунд
ну... попробую. потом отправлю...

magirus Почетный модератор 28045 / 15778 / 982 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	05.04.2014, 09:01	2
	ну нужна - так рисуй. а если что то непонятно спрашивай... за тебя что ли нарисовать? 0

@Chasovoy 0 / 0 / 0 Регистрация: 05.04.2014 Сообщений: 6
	05.04.2014, 09:15 [ТС]	3
	Извините, я учусь заочно-дистанционно, а ранее я не составлял блок-схемы. Еле в Паскале кое как научился... Добавлено через 40 секунд ну... попробую. потом отправлю... 0

Опции темы