Помогите решить информатику тут вродебы про массивы или хз
Помогите решить информатику тут вродебы про массивы или хз
Гость
Ответ(ы) на вопрос:
ГостьНадеюсь, с языком программирования я угадал.
ЗАДАНИЕ 2
1)
Program Матрица1;
var
a,b,summa:integer;
Matr:array[1..4, 1..4] of integer;
Begin
for a:=1 to 4 do
for b:=1 to 4 do
Begin
Write('Строка '+ a + ' стобец '+ b + ' равен ');
Read(Matr[a,b]);
if a=b then
Begin
if Matr[a,b] >= 0 then summa+=Matr[a,b];
End;
End;
Write('Сумма положительных членов матрицы равна ', summa);
End.
2)
Program Матрица2;
var
a,b,summa:integer;
Matr:array[1..4, 1..4] of integer;
Begin
for a:=1 to 4 do
for b:=1 to 4 do
Begin
Matr[a,b]:= random(-15,15);
End;
for a:=1 to 4 do
for b:=1 to 4 do
Begin
if b = 4 then writeln(Matr[a,b]) else write(Matr[a,b] + ' ');
End;
End.
Не нашли ответ?
Похожие вопросы