Turbo Pascal.Дано: массивы A ( N1,M1) , B(N2,M2),C (N3,M3). Определить в каждом из заданных массивов сумму наибольших значений э
<span>Turbo Pascal.</span>Дано: массивы A ( N1,M1) , B(N2,M2),C (N3,M3). Определить в каждом из заданных массивов сумму наибольших значений элементов его четных строк . Определение суммы наибольшего элемента четных строк массивы осуществить в подпрограмме. (желательно записать через функцию)
function GetMax(var a: tM; n: integer; m: integer): integer; // Возвращает значение максимального элемента в строке n массива а var j, max: integer; begin max := -32767; for j := 1 to m do if max < a[n, j] then max := a[n, j]; GetMax := max end;
function SumMax(var a: tM; n: integer; m: integer; p: integer; q: integer): integer; // Проверяет условие n<=r, m<=r, при нарушении возвращает значение -32768 // Полагает, что массив [1..n,1..m] размещен внутри массива a[1..r,1..r] // Заполняет выбранную область массива А случайными числами из диапазона (p;q) // Возвращает значение суммы максимальных элементов четных строк выбранной области.
var i, j, s: integer; begin if (n > r) or (m > r) then SumMax := -32767 else begin Randomize; for i := 1 to n do for j := 1 to m do a[i, j] := random(p + q) - p; s := 0; i := 2; while i <= n do begin s := s + GetMax(a, i, m); i := i + 2 end; SumMax := s end end;
begin sum := SumMax(A, n1, m1, -30, 60); writeln('Массив A[1..', m1, ',1..', n1, ']'); for i := 1 to n1 do begin for j := 1 to m1 do write(A[i, j]:4); writeln; end; writeln('Сумма максимумов четных строк массива A равна ', sum); sum := SumMax(A, n2, m2, 0, 90); writeln('Массив B[1..', m2, ',1..', n2, ']'); for i := 1 to n2 do begin for j := 1 to m2 do write(A[i, j]:4); writeln; end; writeln('Сумма максимумов четных строк массива B равна ', sum); sum := SumMax(A, n3, m3, 20, 50); writeln('Массив C[1..', m3, ',1..', n3, ']'); for i := 1 to n3 do begin for j := 1 to m3 do write(A[i, j]:4); writeln; end; writeln('Сумма максимумов четных строк массива C равна ', sum); end.
N - любое число Движение: 1. Идти n шагов 2. Повернуться на n градусов вправо 3. Повернуться на n градусов влево 4. Повернуть в направление n 5. Повернуться к <какому-либо объекту> 6. Изменить х на n 7. Изменить y на n 8. Установить x на n 9. Установить y на n 10. Идти в x: n y: n 11. Плыть n секунд в точку x: n y: n 12. Идти в <какой-либо объект> 13. Если край, оттолкнуться Внешность: 14. Сказать "<что-либо>" 15. Думать "<что-либо>" 16. Говорить "<что-либо>" в течение n секунд 17. Думать "<что-либо>" в течение n секунд 18. Показаться 19. Спрятаться Перо: 20. Опустить перо 21. Поднять перо 22. Установить цвет пера