Помогите срочно надо!!! 1.Дан двумерный массив.Определить: а) Сумму всех элементов третьей строки массива; б) Сумму всех элемент
Помогите срочно надо!!! 1.Дан двумерный массив.Определить: а) Сумму всех элементов третьей строки массива; б) Сумму всех элементов 5-го столбца массива. 2.Дан двумерный массив.Определить: а) Сумму отрицательных элементов пятой строки массива; б) Сумму элементов четвертого столбца массива, меньших 100; в) количество элементов четвертой строки массива, меньших 5; г) количество ненулевых элементов второго столбца массива, больших 15. Нужно написать программы в Паскале.Заранее спасибо.
//Pascal //1) var A: array[1..5, 1..8] of integer; i, j: byte; sumR, sumC: integer; begin randomize; writeln('Исходный массив':28); for i := 1 to 5 do begin for j := 1 to 8 do begin A[i, j] := random(61)-30; write(A[i,j]:5); if i = 3 then sumR := sumR + A[i, j]; if j = 5 then sumC := sumC + A[i, j]; end; writeln; end; writeln('Сумма элементов 5 столбца = ', sumC); writeln('Сумма элементов 3 строки = ', sumR); end.
//2) var A: array[1..5, 1..8] of integer; i, j: byte; sumA, sumB, countV, countG: integer; begin randomize; writeln('Исходный массив':28); for i := 1 to 5 do begin for j := 1 to 8 do begin A[i, j] := random(300)-150; write(A[i,j]:5); if ((i = 5) and (A[i, j] < 0)) then sumA := sumA + A[i, j]; if ((j = 4) and (A[i, j] < 100)) then sumB := sumB + A[i, j]; if ((i = 4) and (A[i, j] < 5)) then countV := countV + 1; if ((j = 2) and (A[i, j] > 15)) then countG := countG + 1; end; writeln; end; writeln('Сумма отрицательных 5 строки = ', sumA); writeln('Сумма меньших 100 4-ого столбца = ', sumB); writeln('Количество меньших 5 4-ой строки = ', countV); writeln('Количество ненулевых, больших 15 2-ого столбца = ', countG); end.
Заметим, что так как собаки 120 кошки 270 кошки | собаки 390 то нет страниц, на которых ключевыми словами являются одновременно собаки и кошки (120+270=390; кошки и собаки = 0). Диаграмма Эйлера для такого случая показана на прилагаемом рисунке.