Блок схема для двух мерного массива

@Darkvoid · Регистрация: 16.10.2012

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

Помогите с блок схемой

Pascal

Program lab6;
const n=5;
var i,j:byte;
a:array [1..n,1..n] of byte;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
writeln('Введите  ',i,',',j,'-й элемент матрицы: ');
readln(a[i,j]);
end;
end;
writeln('Введенные массивы: ');
begin
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:3);
writeln
end;
end;
j:=n-i+2;
begin
for i:=1 to n do
begin
for j:=1 to n do
if (j>0) and (a[i,j]=0) then
a[i,j]:=1;
end;
end;
writeln('Замена 0 после побочной диагонали: ');
begin
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:3);
writeln
end;
end;
readln;
end.

@ermolay · 19.11.2012, 23:43

как то так:

@ermolay 3451 / 2389 / 2135 Регистрация: 04.12.2011 Сообщений: 3,966
	19.11.2012, 23:43	2
	как то так: Миниатюры 0

Опции темы