Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Заполнить двухмерный массив по образцу.
01234
12345
23456
34567
45678

Ответ оставил Гость

Var a:array[0..4,0..4] of integer; i,j,m:integer;
begin
for i:=0 to 4 do begin 
m:=i;for j:=0 to 4 do begin  
a[i,j]:= m; write(a[i,j]:2); 
m:=m +1; end; 
writeln; end; end.