Алгоритмы и программы. Афанасьева Т. В - 138 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

138
writeln;
writeln('Результат');
for i:=1 to 5 do
begin
for j:=1 to 5 do {вывод результата}
write(a[i,j]:3);
writeln;
end;
end.
Пример 7.26. Поменять местами два элемента в двумерном массиве.
program mas5;
type
t=array[1..5] of integer;
var
b:boolean;
a:array[1..5]of t;
i,j,f,e,g,s:byte;
k:integer;
begin
writeln('Дана матрица:');
randomize;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin {заполнение и вывод массива}
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;
writeln('Задание : поменять местами любые два элемента');
repeat
writeln('введите номера строк');
b:=false;
readln(f);
readln(e); {считывание номеров строк и столбцов}
writeln('введите номера столбцов');
readln(g);
readln(s);
if (f<=5)and (e<=5) and (g<=5) and (s<=5 ) then
b:=true
else

Страницы