until y>yk;

x:=x+hx;

end;

readln;

end.

Результат работы:

Задание 4. Работа с двумерными массивами

Составить программу преобразования двумерных массивов.

В целочисленной матрице А(3,4) найти m положительных элементов в четных столбцах. Сформировать матрицу В(3,4) по правилу

(i=1,…,3; j=1,…,4)

В первой строке матрицы А найти максимальный по модулю элемент.

Текст программы:

Program pr_4;

var

i,j,m:integer;

A,B: array [1..3,1..4] of real;

max:real;

begin

writeln('Vvod matrici po strokam');

for i:=1 to 3 do

begin

for j:=1 to 4 do

begin

writeln('Vvedite element matrici');

readln(A[i,j])

end;

end;

m:=0;

j:=2;