Паскаль 1)в двумерном массиве 4 на 3 заменить все нулевые элементы на первый элемент матрицы . 2) заменить все элементы главной диагонали на максимальный элемент той же строки
Abtun
2
20.05.2019 18:20
1
Другие вопросы по теме Информатика
tim2424
26.04.2021 14:14
nikitabordkin
26.04.2021 14:15
дима2855
08.07.2019 17:00
nikita1197
08.07.2019 16:50
Kristibabiba098
08.07.2019 16:50
лол04
08.07.2019 16:50
Irishka2k17
08.07.2019 16:50
monkey06
08.07.2019 16:50
djonni74
08.07.2019 16:50
Популярные вопросы
- Археологических какая начальная форма этого слова...
2 - Решите (2,41+3,25-2,44-0,22): (1/5-1/15) / 5*9* 0,5 выручите! решать так потом...
3 - Жер шарындағы ірі тау жасалу кезеңдері...
3 - Найдите решения уравнения x+x/12=-13/6...
3 - Выписать из повести наталья, боярская дочь эпитеты, метафоры, сравнения, перифраз...
3 - На конном заводе в одном табуне было 300 лошадей,а в другом-400 и в третьем-500....
3 - Велосепидист за несколько часов проехал 36 км. а)сколько киломметров пройдёт за...
1 - Решите пож много учеников шестых классов которых больше 120 но меньше 150 можно...
1 - Округлите число 82 735 061 до разряда : десятков, сотен,тысячных, десяттысячных,...
3 - Периметр прямоугольника равен 24 м. одна его сторона по сравнению с другой : 1)...
2
var a:array[1..20,1..20]of integer;
i,j:integer;
begin
for i:=1 to 4 do
for j:=1 to 3 do
readln(a[i,j]);
for i:=1 to 4 do
for j:=1 to 3 do
if a[i,j]=0 then a[i,j]:=a[1,1];
for i:=1 to 4 do begin
for j:=1 to 3 do
write(a[i,j],' ');
writeln;end;
end.