Есть ответ 👍

Кроссворд на тему устройство компьютера

171
344
Посмотреть ответы 2

Ответы на вопрос:


Процессор - видеокарта - жесткий диск - материнская плата - дисковод - блок питания - кулер - оперативая память - корпус

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.

Популярно: Информатика