Var k,i:integer;
begin
write ('Введите количество повторений: ');
readln (k);
for i:=1 to k do
writeln ('ПРИВЕТ!!!')
end.
Ответ: 1) Узел 1 Узел 2 Узел 3 Узел 4
Канал 1 Канал 2 Канал 3
P -> -> -> P
2) Шифр
3) Скитала
4) Шифр простой замены, простой подстановочный шифр, моноалфавитный шифр (пример: шифр-алфавит: А - 33; Б - 17; В - 8; Г - 16; Д - 2; Е - 15; Ё - 14; Ж - 13; З - 12; И - 98; Й - 10; К - 97; Л - 96; М - 24; Н - 0; О - 11; П - 5; Р - 25; С - 7; Т - 3; У - 64; Ф - 26; Х - 66; Ц - 69; Ч - 4; Ш - 6; Щ - 36; Ь - 21; Ъ - 22; Ы - 23; Э - 37; Ю - 39; Я - 18.)
Объяснение:
Type
mas=array[,] of integer;
var
i,j,ik,jk,k,max:integer;
a:mas;
b:array[0..5]of integer;//вспомогательный массив
begin
setlength(a,5,6);
writeln('Массив:');
// в массиве b минимальное число строки
for i:=0 to 4 do
begin
for j:=0 to 5 do
begin
a[i,j]:=random(-10,10);
write(a[i,j]:4);
if j=0 then b[i]:=a[i,0];
if a[i,j]<b[i] then b[i]:=a[i,j];
end;
writeln;
end;
writeln('Замена минимального противоположным:');
for i:=0 to 4 do
begin
for j:=0 to 5 do
begin
if a[i,j]=b[i] then a[i,j]:=-a[i,j];
write(a[i,j]:4);
end;
writeln;
end;
writeln('Вставка столбцов:');
// в массиве b признак наличия в столбце максимума
for i:=0 to 5 do b[i]:=0;
for i:=0 to 4 do
for j:=1 to 5 do
if a[i,j]>max then max:=a[i,j];
for i:=0 to 4 do
for j:=0 to 5 do
if a[i,j]=max then b[j]:=1;
for i:=0 to 5 do k:=k+b[i];
k:=5+k;
setlength(a,5,k+1);
jk:=k;
for j:=5 downto 0 do
begin
if b[j]=1 then
begin
for ik:=0 to 4 do a[ik,jk]:=1;
jk:=jk-1;
end;
for ik:=0 to 4 do a[ik,jk]:=a[ik,j];
jk:=jk-1;
end;
for i:=0 to 4 do
begin
for j:=0 to k do write(a[i,j]:4);
writeln;
end;
writeln('Удаление первой строки:');
for i:=0 to 3 do
for j:=0 to k do
a[i,j]:=a[i+1,j];
setlength(a,4,k+1);
for i:=0 to 3 do
begin
for j:=0 to k do
write(a[i,j]:4);
writeln;
end;
writeln('Обмен столбцов:');
for i:=0 to 3 do
begin
b[i]:=a[i,k-1];
a[i,k-1]:=a[i,k];
a[i,k]:=b[i];
end;
for i:=0 to 3 do
begin
for j:=0 to k do write(a[i,j]:4);
writeln;
end;
<span>end.</span>