Скратким ответом.записать формулы : а)сложения чисел,хранящихся в ячейках а1 и в1 б)вычитания чисел,хранящихся в ячейках а3 и в5 в)умножения чисел,хранящихся в ячейках с1 и с2 г)делания чисел,хранящихся в ячейках а10 и в10
Поскольку к элементам третьего столбца массива можно обращаться, как B[i,3], достаточно использовать цикл по строкам. Для просмотра только четных строк массива достаточно начать со второй и менять номер строки с шагом 2.
const n = 6; var b:array[1..n,1..n] of integer; i,j,s: integer; begin Randomize; Writeln('Исходный массив'); for i := 1 to n do begin for j := 1 to n do begin b[i,j]:=Random(131)-65; Write(b[i,j]:4) end; Writeln end; { задание 1 } s:=0; for i:=1 to n do if b[i,3]>0 then s:=s+b[i,3]; Writeln('Значение найденной суммы: ',s); { задание 2 } i:=2; while i<=n do begin for j:=1 to n do if b[i,j]<0 then b[i,j]:=0; i:=i+2 end; Writeln('Результирующий массив'); for i:=1 to n do begin for j:=1 to n do Write(b[i,j]:4); Writeln end end.
Решение на паскаль. начало решения задач одинаковое, а дальше см. внизу
program xxx; var b: array [1..6, 1..6] of integer; i, j, s : integer; begin for i:= 1 to 6 do for j:=1 to 6 do b[i,j]:= random(131)-65; writeln ('исходная матрица В:'); for i:=1 to 6 do begin for j:=1 to 6 do write (b[i,j]:4); writeln end;
задание 1. s:=0; for i:= 1 to 6 do if b[i,3]>0 then s:=s+b[i,3]; writeln ('сумма положительных элементов 3-го столбца', s) end.
задание 2. i:=2; while i<=6 do begin for j:= 1 to 6 do if b[i,j]<0 then b[i,j]:=0; i:=i+2 end; writeln ('полученная матрица В:'); for i:=1 to 6 do begin for j:=1 to 6 do write (b[i,j]:4); writeln end end.
а) =A1+B1
б) =A3-B5 или =B5-A3
в) =C1*C2
г) =A10/B10 или =B10/A10