Основы применения вычислительной техники и программирование. Беспалов В.В. - 53 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

Пример 6.3. Задан двумерный массив В(10, 10), заполненный
случайными числами из диапазона -10 – 10. Найти и вывести на экран
произведение элементов побочной диагонали.
program massiv;
uses crt;
var b:array[1..10,1..10] of integer;
i,j,s:integer;
begin
Clrscr;
for i:=1 to 10 do
begin
for j:= 1 to 10 do
begin
b[i,j]:=random(20)-10;
write(b[i,j]:4);
end;
writeln;
end;
s:=1;
for i:=1 to 10 do
s:=s*b[i,11-i];
writeln(‘Произведение = ’,s);
end.
Пример 6.4. Ввести с клавиатуры матрицу В(5, 5) и поменять
местами первый и последний столбец.
program mest;
var b:array[1..5,1..5] of integer;
i,j,s:integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
begin
write(‘b[’,i,‘,’,j,‘]=’);
readln(b[i,j]);
end;
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(b[i,j]:4);
54

Страницы