Заменить в данной матрице все элементы первой строки числом 7

@DJ PHOTO · Регистрация: 09.12.2010

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

Помогите пожалуйста, срочно нужно:Дана целочисленная матрица размера 5x6. Заменить в данной матрице все элементы первой строки числом 7.

@VampirSS · 09.12.2010, 19:50

Pascal

1	for j:=1 to 6 do a[1,j]:=7

09.12.2010, 20:16

Pascal

uses CRT;
const
        n=5;
        m=5;
var
        a:array[1..n,1..m] of real;
        i,j:integer;
begin
        randomize;
        writeln('Исходная матрица:');
        for i:=1 to n do
                for j:=1 to m do
                  begin
                        a[i,j]:=random(101);
                        write(a[i,j]:3);
                        if j=n then writeln;
                  end;
        for i:=1 to n do
              for j:=1 to m do
                     a[1,j]:=7;
        writeln;
        writeln;
        writeln('матрица:');        
        for i:=1 to n do
                for j:=1 to m do begin
                        write(a[i,j]:3);
                        if j=n then writeln;
                  end;
end.

@DJ PHOTO 0 / 0 / 0 Регистрация: 09.12.2010 Сообщений: 4
		1
	Заменить в данной матрице все элементы первой строки числом 7 09.12.2010, 18:39. Показов 1483. Ответов 2 Метки нет (Все метки) Помогите пожалуйста, срочно нужно:Дана целочисленная матрица размера 5x6. Заменить в данной матрице все элементы первой строки числом 7. 0

	09.12.2010, 20:16

Заменить в данной матрице все элементы первой строки числом 7

Решение