Обработка двумерных массивов - составить программу замены всех положительных элементов матрицы на элемент, имеющий минимальное эначение

@Андреевна · Регистрация: 16.06.2013

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста с написание программы:

Ввод с помощью датчика случайных чисел....
Дана вещественная матрица А(N,M). Составить программу
замены всех положительных элементов матрицы на элемент,
имеющий минимальное эначение.

@Joker_vad · 17.06.2013, 15:40

Pascal

var
i,j,m,n:integer;
a:array [1..40,1..40] of real;
mi:real;
begin
Randomize;
write('Введите количество строк:');readln(n);
write('Введите количество столбцов:');readln(m);
for i:=1 to n do
  for j:=1 to m do begin
    a[i,j]:=random(100)-50;
    if a[i,j]<mi then
      mi:=a[i,j];
   end;
writeln('Текущий массив.');
for i:=1 to n do begin
  for j:=1 to m do begin
    write(a[i,j]);
    if a[i,j]<0 then
      a[i,j]:=mi;
  end;
  writeln;
end;
writeln('Полученый массив.');
for i:=1 to n do begin
  for j:=1 to m do 
    write(a[i,j]);
  writeln;
end;
readln;
end.

@Андреевна · 17.06.2013, 16:12 **[ТС]**

Спасибо большое, очень помогли))

@Joker_vad · 17.06.2013, 16:15

уж не знаю помогли)

@Андреевна 0 / 0 / 0 Регистрация: 16.06.2013 Сообщений: 3
		1
	Обработка двумерных массивов - составить программу замены всех положительных элементов матрицы на элемент, имеющий минимальное эначение 16.06.2013, 17:54. Показов 797. Ответов 3 Метки нет (Все метки) Помогите пожалуйста с написание программы: Ввод с помощью датчика случайных чисел.... Дана вещественная матрица А(N,M). Составить программу замены всех положительных элементов матрицы на элемент, имеющий минимальное эначение. 0

@Андреевна 0 / 0 / 0 Регистрация: 16.06.2013 Сообщений: 3
	17.06.2013, 16:12 [ТС]	3
	Спасибо большое, очень помогли)) 0

@Joker_vad 476 / 413 / 93 Регистрация: 26.09.2012 Сообщений: 1,913
	17.06.2013, 16:15	4
	уж не знаю помогли) 0

Опции темы