Из элементов столбца с номером k массива A[20,25] вычесть минимальный элемент этого столбца.

@TanuschKa · Регистрация: 30.11.2011

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

Из элементов столбца с номером k массива A[20,25] вычесть минимальный элемент этого столбца. Значение k ввести (k<=25).

Помогите!!!ПЛИИИИИИИЗ!!!!!!!

@Dtsnoob · 01.12.2011, 14:01

Pascal

uses crt;
var a:array [1..20, 1..25] of integer;
    i,j,k,min:integer;
begin
 ClrScr;
 Randomize;
 for i:=1 to 20 do
   begin
     writeln;
     for j:=1 to 25 do
       begin
          a[i,j]:=random(10);
          write (a[i,j]:3);
       end;
   end;
 writeln;
 write ('k= '); readln (k);
 min:=a[k,1];
 for i:=1 to 20 do
   if min>a[i,k] then min:=a[i,k];
 for i:=1 to 20 do
   a[i,k]:=a[i,k]-min;
 writeln ('========');
 writeln ('Result:');
 for i:=1 to 20 do
   begin
     writeln;
     for j:=1 to 25 do
       write (a[i,j]:3);
   end;
 readln
end.

@TanuschKa · 01.12.2011, 14:33 **[ТС]**

Спасибочки огромное))))С меня теперь все что захочешь))))

Комментарий модератора

Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.

@TanuschKa 12 / 12 / 1 Регистрация: 30.11.2011 Сообщений: 38
		1
	Из элементов столбца с номером k массива A[20,25] вычесть минимальный элемент этого столбца. 01.12.2011, 13:04. Показов 1483. Ответов 2 Метки нет (Все метки) Из элементов столбца с номером k массива A[20,25] вычесть минимальный элемент этого столбца. Значение k ввести (k<=25). Помогите!!!ПЛИИИИИИИЗ!!!!!!! 0

Опции темы

Из элементов столбца с номером k массива A[20,25] вычесть минимальный элемент этого столбца.

Решение