Ввод-вывод значений элементов матрицы

1. Заполнение элементов матрицы с клавиатуры (вывод в столбик)

program masvod;

var

a:array[1..3,1..3] of integer;

i, j: integer;

begin

for i:=1 to 3 do

for j:=1 to 3 do begin

readln(a[i, j]);

writeln('a(' , i, ',' , j, ')=',a[i, j]);

end;

readln;

end.

2. Заполнение элементов матрицы (вывод таблицей)

program masvodfor;

var

a:array[1..3,1..3] of real;

i, j: integer;

begin

for i:=1 to 3 do begin

for j:=1 to 3 do begin (a[i, j]):=(i+0.5)/(j+sin(j));

write(a[i, j]:2:3,' ');

end;

writeln;

end

end.

3. Заполнение элементов матрицы случайными числами (вывод в строку)

program masvod3;

var

a:array[1..10,1..10] of integer;

i, J: integer;

begin

randomize;

for i:=1 to 10 do

for J:=1 to 10 do begin

a[i, J]:=random(30);

write('A(',i,',',j,')=',a[i, j],' ');

end;

readln

end.

Типовые задачи на матрицы

Дана прямоугольная матрица А(5,7), заполненная случайными числами в диапазоне от 0 до 29 включительно. Найти и напечатать максимальное значение.

program maxmatr;

uses CRT;

var

a:array[1..5,1..7] of integer;

i, j,max: integer;

begin

clrscr;

randomize;

for i:=1 to 5 do

for j:=1 to 7 do begin

a[i, j]:=random(30);

writeln('A(', i, ',' , j,')=',a[i, j])

end;

max:=a[1,1];

for i:=1 to 5 do

for j:=1 to 7 do

if a[i, j]>max then max:=a[i, j];

writeln('max=',max);

readln

end.

Дана матрица А(3,5), заполненная датчиком случайных чисел. Найти сумму значений всех элементов данной матрицы.

program summatr;

uses CRT;

var

a:array[1..3,1..5] of integer;

i, j,s: integer;

begin

clrscr;

randomize;

for i:=1 to 3 do

for j:=1 to 5 do begin

a[i, j]:=random(30);

writeln('A(', i, ',' , j ,')=',a[i, j])

end;

s:=0;

for i:=1 to 3 do

for j:=1 to 5 do begin

s:=s+a[i, j];

end;

writeln('s=',s);

readln

end.

Дана матрица А(3,5), заполненная датчиком случайных чисел в диапазоне от -10 до 19 включительно. Подсчитать количество положительных значений элементов каждой строки матрицы.

program sumstrok;

uses CRT;

var

a:array[1..3,1..5] of integer;

i, j,k: integer;

begin

clrscr;

randomize;

for i:=1 to 3 do begin

for j:=1 to 5 do begin

a[i, j]:=random(30)-10;

writeln('A(', i, ',' , j,')=',a[i, j])

end;

writeln;

end;

for i:=1 to 3 do begin

k:=0;

for j:=1 to 5 do begin

if a[i, j]>0 then k:=k+1;

end;

writeln('k=',k);

end;

readln

end.