вот данные: Дано: с клавиатуры вводятся два целых числа – М и К. 1<M<10, 1<K<10. (М – число строк, К – число столбцов)
Требуется: сгенерировать матрицу размерности М х К из случайных вещественных чисел из интервала [-20, 30].
Вывести её на экран в отформатированном табличном виде.
Заменить все отрицательные элементы в матрице на -1, все положительные на 1 и вывести на экран полученную матрицу в отформатированном виде и сумму всех положительных элементов.
Генерацию, обработку и вывод матрицы производить с помощью двух вложенных циклов. Внешний цикл – for, внутренний – while.

program Project1;
var
i,j,x,M,K:integer;
A:Array[1..10,1..10]of integer;
begin
read(M,K);
randomize;
i:=1;






begin
j:=1;
while j<=M do
begin
A[i,j]:=random(50)-20;
write(A[i,j]:4);
j:=j+1;
end;
end;
writeln;
i:=i+1;
read(M);
end.