Заменить нулевые элементы матрицы, расположенные под побочной диагональю, на любые, отличные от нуля

@freek · Регистрация: 14.09.2009

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

есть такая прога

Pascal

program mass;
uses crt;
Var  A:Array [1..5,1..5] of integer;
     i,j,m:integer;
Begin
clrscr;
Writeln('Koli4estvo elementov mass:');Read(m);
For i:=1 To 5 Do
For j:=1 To 5 Do
    begin
        A[i,j]:=0;
    end;
For i:=1 To 5 Do
For j:=1 To 5 Do
   A[j,i]:=random (100);
        writeln;
        writeln;
        writeln('Matrica A posle preobrazovaniya');
For i:=1 to 5 do
begin
writeln;
for j:=1 to 5 do
Write(A[j,i]:5);
end;
End.

перед заполнением нужно добавить оператор if, а куда и как именно немогу понять

помогите кто может

Заранее спасибо!

@Inadequate · 10.03.2010, 01:57

Задание напиши

@freek · 10.03.2010, 02:02 **[ТС]**

Дан двумерный массив 5х5. Заменить нулевые элементы, расположенные под побочной диагональю.

@Inadequate · 10.03.2010, 02:11

Чем заменить?

@freek · 10.03.2010, 02:14 **[ТС]**

любыми цифрами отличными от 0

@Inadequate · 10.03.2010, 02:20

Pascal

uses
  Crt;
  
const
  N = 5;
 
var
  a: array [1..N, 1..N] of integer;
  i,j: integer;
begin
  ClrScr;
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      if j >= N - i + 2 then
        a[i,j] := 8
      else
        a[i,j] := 0;
      Write(a[i,j]:3, ' ');
    end;
    WriteLn
  end;
  ReadLn
end.

@freek · 10.03.2010, 02:29 **[ТС]**

пасиб, а куда и как добавить оператор в мою прогу?

@Inadequate · 10.03.2010, 02:39

Какой оператор?

@freek · 10.03.2010, 02:42 **[ТС]**

ну только что вы написали мне прогу с операторм if по моему уловию, а мне хотелось бы подправить (добавить в неё куда нужно)задачу в 1-м посте, с использованием if

@Inadequate · 10.03.2010, 02:52

freek, у тебя там сложно что либо править, так как глупость написана. Возьми моё решение, чем оно тебя не устраивает?

@freek · 10.03.2010, 02:56 **[ТС]**

сам знаю ,что глупость) лан,спасибо за задачу

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	10.03.2010, 01:57	2
	Задание напиши 0

@freek 158 / 1 / 0 Регистрация: 14.09.2009 Сообщений: 58
	10.03.2010, 02:02 [ТС]	3
	Дан двумерный массив 5х5. Заменить нулевые элементы, расположенные под побочной диагональю. 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	10.03.2010, 02:11	4
	Чем заменить? 0

@freek 158 / 1 / 0 Регистрация: 14.09.2009 Сообщений: 58
	10.03.2010, 02:14 [ТС]	5
	любыми цифрами отличными от 0 0

@freek 158 / 1 / 0 Регистрация: 14.09.2009 Сообщений: 58
	10.03.2010, 02:29 [ТС]	7
	пасиб, а куда и как добавить оператор в мою прогу? 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	10.03.2010, 02:39	8
	Какой оператор? 0

@freek 158 / 1 / 0 Регистрация: 14.09.2009 Сообщений: 58
	10.03.2010, 02:42 [ТС]	9
	ну только что вы написали мне прогу с операторм if по моему уловию, а мне хотелось бы подправить (добавить в неё куда нужно)задачу в 1-м посте, с использованием if 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	10.03.2010, 02:52	10
	freek, у тебя там сложно что либо править, так как глупость написана. Возьми моё решение, чем оно тебя не устраивает? 1

@freek 158 / 1 / 0 Регистрация: 14.09.2009 Сообщений: 58
	10.03.2010, 02:56 [ТС]	11
	сам знаю ,что глупость) лан,спасибо за задачу 0

Заменить нулевые элементы матрицы, расположенные под побочной диагональю, на любые, отличные от нуля

Решение