Вывести на экран одномерный массив из 12 элементов.перевести из одномерного массива в двумерный элементы построчно(в 3 строки) паскаль

123вшагао 123вшагао    3   29.05.2019 02:00    0

Ответы
salautinal96 salautinal96  26.06.2020 22:26
Var a, b, c, i :integer;   
s :array[1..12] of integer;   
p :array[1..4,1..3] of integer;
begin
for i:=1 to 12 do read (s[i]);
i:=1;
for a:=1 to 4 do 
 for b:=1 to 3 do 
  begin  p[a,b]:=s[i]; 
  i:=i+1; 
  end;
for a:=1 to 4 do 
 begin 
 for b:=1 to 3 do  write (p[a,b],' '); 
 writeln; 
 end;
end.

P.S. Надеюсь на благодарность и лучший ответ.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика