Отчет по практике: Основы программирования

close(f);

readln;

end.

2. Двумерные массивы

Заменить все отрицательные элементы массива К (n, m) на их квадраты, положительные - на корень из данного числа.

uses

crt;

type

mas=array [1..100,1..100] of real;

var

a:mas;

i,j:integer;

procedure VVod(var a:mas);

var

i,j,n,m:integer;

begin

randomize;

write('Kolichestvo strok: ');

readln(n);

write('Kolichestvo stolbcov:');

readln(m);

for i:=1 to n do

for j:=1 to m do

begin

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

end;

end;

procedure ViVod(var a:mas);

var

i,j,n,m:integer;