Паскаль.24.Дан массив А(3*4). Удалить вторую строку. 25.Дан массив А(3*4). Вставить...

Question

Паскаль.

24.Дан массив А(3*4). Удалить вторую строку.



25.Дан массив А(3*4). Вставить столбец из нулей после столбца, в котором все элементы положительны.



26.Дан массив А(5*4). Вставить после всех строк, в которых есть число 5, последнюю строку.



27.Дан массив А(4*6). Вставить перед всеми столбцами, в которых нет отрицательных элементов, второй столбец.



28.Дан массив А(3*4). Удалить столбец, в котором находится минимальный элемент.

---

Answer 1

Program gt24;
var a:array[1..3,1..4]of real;
i,j:longint;
begin
for i:=1 to 3 do
for j:=1 to 4 do
read(a[i,j]);
i:=2;
for j:=1 to 4 do
a[i,j]:=a[i+1,j];
for i:=1 to 2 do
begin
for j:=1 to 4 do
begin
write(a[i,j],' ');
end;
writeln;
end;
end.
program gt25;
label 1;
var a:array[1..4,1..5]of real;
l,i,j,k:longint;
begin
for i:=1 to 3 do
for j:=1 to 4 do
read(a[i,j]);
for j:=1 to 4 do
begin
k:=0;
for i:=1 to 3 do
begin
if(a[i,j]>0)then k:=k+1;
end;
if(k=3)then goto 1;
end;
1:
l:=j;
writeln(l);
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
if(j=l+1)then write(0,' ');
write(a[i,j],' ');
end;
writeln;
end;
end.
program gt26;
label 1;
var a:array[1..5,1..4]of real;
l,i,j,k:longint;
begin
for i:=1 to 5 do
for j:=1 to 4 do
read(a[i,j]);
writeln;
for i:=1 to 5 do
begin
k:=0;
for j:=1 to 4 do
begin
if(a[i,j]=5)then k:=1;
write(a[i,j],' ');
end;
writeln;
if(k=1)then begin
for l:=1 to 4 do
begin
write(a[5,l],' ');
end;
writeln;
end;
end;
end.
program gt22;
var a:array[1..4,1..7]of longint;
i,j,k:longint;
begin
for i:=1 to 4 do
begin
for j:=1 to 7 do
begin
if((i mod 2=0)and(j mod 2=0))or((i mod 2=1)and(j mod 2=1))then begin
k:=k+1;
write(k:3,' ');
end;
if((i mod 2=0)and(j mod 2=1))or((i mod 2=1)and(j mod 2=0))then begin
write(0:3,' ');
end;
end;
writeln;
end;
end.
program gt28;
label 1;
var a:array[1..3,1..4]of real;
l,i,j,k:longint;
min:real;
begin
for i:=1 to 3 do
for j:=1 to 4 do
read(a[i,j]);
writeln;
min:=a[1,1];
l:=1;
for i:=1 to 3 do
for j:=1 to 4 do
if(a[i,j]min:=a[i,j];
l:=j;
end;
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
if(j<>l)then write(a[i,j],' ');
end;
writeln;
end;
end.