Другие языки программирования и технологии

Пожалуйста, очень нужна помощь с Pascal

Пожалуйста, нужна помощь с Pascal ABC
1.Составить программу для нахождения максимума среди элементов главной и элементов побочной диагонали квадратной матрицы 10*10
2.Составить программу, подсчитывающую для каждого столбца массива A[1..5,1..6] сумму значений элементов и формирует из этих сумм одномерный массив B[1..6](Самая важная задача)
3.Сформировать одномерный массив, состоящий из минимальных элементов каждого столбца массива A[1..5,1..6]
Это не попрошайничество. Сам не могу сделать, так как эту тему болел и взял задание домой с сайта школы... Задач там намного больше, просто эти вызывают наибольшее затруднение.. .
Заранее сильно благодарен
Farhod Tursunov
Farhod Tursunov
190
1)
MaxRow : Byte := 1; MaxCol : Byte := 1;
for N : Byte := 1 to 10 do begin if A[N, N] > A[MaxRow, MaxCol] then begin MaxRow := N; MaxCol := N; end; if A[N, 11 - N] > A[MaxRow, MaxCol] then begin MaxRow := N; MaxCol := 11 - N; end; end;
WriteLn('Максимальный A[', MaxRow, ',', MaxCol, '] = ', A[MaxRow, MaxCol]);
2)
for Col : Byte := 1 to 6 do B[Col] := 0;
for Row : Byte := 1 to 5 do for Col : Byte := 1 to 6 do B[Col] := B[Col] + A[Row, Col];
Write('B = '); for Col : Byte := 1 to 6 do Write(B[Col], ' '); WriteLn;
3)
for Col : Byte := 1 to 6 do B[Col] := A[1, Col];
for Row : Byte := 2 to 5 do for Col : Byte := 1 to 6 do if B[Col] > A[Row, Col] then B[Col] := A[Row, Col];
Write('B = '); for Col : Byte := 1 to 6 do Write(B[Col], ' '); WriteLn;
Дмитрий Беляков
Дмитрий Беляков
98 381
Лучший ответ
Так в чем помощь то нужна? Что-то подсказать? Или сделать за тебя?
Если последнее - обращайся $20. Если что-то подсказать - то так и спрашивай... .
ВЮ
Василий Юлбарсов
26 429

Похожие вопросы