Помогите пожалуйста заполнить двумерный массив!! в паскале

0 голосов
36 просмотров

Помогите пожалуйста заполнить двумерный массив!! в паскале


image

Информатика (29 баллов) | 36 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Решение задачи - в прилагаемом файле


Скачать вложение Текст (TXT)
(194k баллов)
0

в каком файле?

0

В файле, приложенном к ответу

0

так там нет файла

0

скинь в комментарии

0

пожалуйста

0

или фото скинь

0

const n=12; m=10;
var a : array[1..n,1..m] of integer;
i,j,k : integer;
begin
k:=0;
for j:=m div 2 downto 1 do
begin
for i:=n downto 1 do begin k:=k+1; a[i,2*j]:=k; end;
for i:=1 to n do begin k:=k+1; a[i,2*j-1]:=k; end;;
end;
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
end.

0

спасибо