Дана матрица размерностью n*m. Элементы, индексы которых четные, возвести в квадрат. Измененную матрицу вывести на экран. (pascal)

Ответы (1)

Бура 06.05.2024 0
Program n1;const n=4; m=5;var a: array[1 ... n, 1 ... m] of integer;i, j: integer;beginwriteln ('исходная матрица:') ;for i:=1 to n dobeginfor j:=1 to m do begina[i, j]:=random (20) ;write (a[i, j],' ') ;end;writeln;end;writeln ('полученная матрица:') ;for i:=1 to n dobeginfor j:=1 to m do beginif (j mod 2=0) and (i mod 2=0) then a[i, j]:=a[i, j]*a[i, j];write (a[i, j],' ') ;end;writeln;end;end.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика: