Ответы на вопрос:
Процессор - видеокарта - жесткий диск - материнская плата - дисковод - блок питания - кулер - оперативая память - корпус
type
tarray = array [1..50,1..50] of longint;
var
a : tarray;
n,m,i,j : longint;
begin
readln(n,m);
for i: =1 to n do
for j: =1 to m do read(a[i,j]);
for i: =1 to n do
for j: =1 to m do
if a[i,j]< 0 then a[i,j]: =a[i,j]*a[i,j];
for i: =1 to n do
begin
for j: =1 to m do write(a[i,j],' ');
writeln;
end;
end.
вместо знака ? поставь максимальные значения n и m.
Популярно: Информатика
-
О12709.02.2022 12:20
-
иззи215.05.2022 17:36
-
covepoxamu01.07.2022 09:28
-
Angelikakat09.09.2020 03:24
-
Лалочка45454524.12.2020 15:44
-
lapkinalidala30.10.2022 12:30
-
dshaa1419.04.2021 12:00
-
спаркер15.09.2020 23:45
-
tanyakill908705.09.2020 10:32
-
Русик27116.12.2022 12:52