Массив

[julija]

Массив

Пожалуйста, помогите закончить решение задачи

Задача:

Написать программу для созданя и печати массива следующего вида:

80000000
78000000
67800000
56780000
45678000
34567800
23456780
12345678

Решение:

program n1;
type dvm: array [1..8;1..8] of integer;
var i;j integer
for i: 1 to 8 do begin;
for j: 1 to 8 do begin;
If i<j then a[i;j]=0 else a[i;j]:= ........как дальше???;(

 

[Vladimir_S]

Пожалуйста, помогите закончить решение задачи

Знаете... тут не про "закончить" речь. Тут даже и не начато. Пять строчек всего - а в каждой по несколько ошибок. Потому прежде всего разберем Ваш код:

type dvm: array [1..8,1..8] of integer;
var i,j: integer;
a:dvm;
begin
for i:=1 to 8 do begin {; - лишний!}
for j:=1 to 8 do begin {; - лишний!}
If i<j then a[i,j]:=0 else a[i,j]:=

Ну а теперь посмотрите, как выглядит рабочая программа. Как говорится, "почувствуйте разницу":

program n1;
var
 i,j:integer;
 a:array [1..8,1..8] of integer;
begin
 for i:=1 to 8 do
  begin
   for j:=1 to 8 do
    begin
     if j>i then a[i,j]:=0 else a[i,j]:=8-i+j;
     write(a[i,j]:3);
    end;
   writeln;
  end;
 readln
end.