решение задачи

@n@stasy@ · Регистрация: 17.11.2011

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

Написать программу для решения следующей задачи: дана квадратная матрица порядка N. Заменить нулями все элементы ,стоящие на главной диагонали и выше её.

@WebMax 2.0 · 09.12.2011, 08:22

Pascal

uses crt;
 
const n=10;
 
var a: array [1..n,1..n] of integer;
i,j:integer;
 
begin
   Writeln('Èñõîäíûé ìàññèâ: ');
   For i:=1 to n do begin
       for j:=1 to n do begin
       randomize;
       a[i,j]:=random(10)+1;
       write(a[i,j]:3);
       end;
   writeln;
   end;
   
   Writeln('Íîâûé ìàññèâ: ');
   For i:=1 to n do begin
       for j:=1 to n do begin
       if (i<j)or (i=j) then a[i,j]:=0;
       Write(a[i,j]:3);
       end;
   writeln;
   end;
end.

@n@stasy@ 2 / 2 / 0 Регистрация: 17.11.2011 Сообщений: 30
		1
	решение задачи 09.12.2011, 08:12. Показов 1491. Ответов 1 Метки нет (Все метки) Написать программу для решения следующей задачи: дана квадратная матрица порядка N. Заменить нулями все элементы ,стоящие на главной диагонали и выше её. 0

	09.12.2011, 08:22

решение задачи

Решение