с клавиатуры вводится матрица n m



Автор тититка синичкин задал вопрос в разделе ВУЗы, Колледжи

помогите решить задачу в pascal и получил лучший ответ

Ответ от DaN[гуру]
var w: array [1..100,1..100]of integer; i,j,m,n,a,sum : integer; begin randomize; writeln(\'введите размерность матрицы\'); read(n); write(\' x \'); readln(m); writeln(\'выберите способ задания матрицы\'); writeln(\'1 - с клавиатуры\'); writeln(\'2 - генератор случайных чисел\'); readln(a); if a = 1 then begin writeln(\'выбран способ задания с клавиатуры\'); for i:= 1 to n do for j:=1 to m do readln(w[i,j]); end else begin writeln(\'выбран способ задания с помощью генератора случайных чисел\'); for i:= 1 to n do for j:=1 to m do w[i,j]:=(random(90))-10; end; for i:= 1 to n do begin writeln; for j:=1 to m do write(w[i,j]+\' \'); end; for i:= 1 to n do for j:=1 to m do if w[i,j]<0 then sum:=sum+abs(w[i,j]); for i:= 1 to n do for j:=1 to m do if odd(i)=false and odd(j)=true then w[i,j]:=sum; end.

Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: помогите решить задачу в pascal
спросили в String h
Сортировка одномерного массива
Доброго времени суток.

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

Ответить на вопрос:

Имя*

E-mail:*

Текст ответа:*
Проверочный код(введите 22):*