Обработка двумерных массивов

@GOIIIAN · Регистрация: 12.11.2010

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

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

@Давид · 12.11.2010, 20:51

GOIIIAN,

Pascal

uses crt;
const m=5;
      n=4;
var b,c:array [1..m,1..n] of integer;
     i,j,min:integer;
begin
clrscr;
randomize;
writeln('Isxodnaja matrica C:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    c[i,j]:=random(100);{заполним матрицу случайными числами в инт[0,99]}
    write(c[i,j]:4);
   end;
  writeln;
 end;
writeln;
min:=c[1,1];
for i:=1 to m do
  for j:=1 to n do
    if c[i,j]<=min then min:=c[i,j];
    writeln ('min element massiva C =',min);
writeln;
for i:=1 to m do
 for j:=1 to n do
   if b[i,j]>0 then b[i,j]:=min;
writeln (' Otbet ');
for i:=1 to m do
 begin
   for j:=1 to n do
     write (' ',b[i,j],' ');
     writeln;
 end;
readln
end.

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

	12.11.2010, 20:51

Опции темы

Обработка двумерных массивов

Решение