Готовое решение задачи Паскаль. Решения Pascal. Задачи паскаль. Задачи pascal

Условие Задачи:

Дан массив С(7), каждый элемент которого - строка длинной 10. Вывести массив на экран так, чтобы:
а) каждая строка располагалась вертикально;
б) каждая строка, начиная со второй, была сдвинута вправо на один элемент по отношению к предыдущей.

Просмотров: 768
Объяснение: -

РЕШЕНИЕ:

program PascalGuru; var C:array[1..100,1..100] of integer; i,j,n,k:integer; begin for i:=1 to 7 do for j:=1 to 10 do C[i,j]:=1+random(25);{begin write ('C[',i,',',j,']='); readln (C[i,j]); end; } write ('Vvedennyi massiv C: '); for i:=1 to 7 do begin writeln; for j:=1 to 10 do write (C[i,j]:3,' '); end; writeln;writeln; write ('a) massiv C: '); for j:=1 to 10 do begin writeln; for i:=1 to 7 do write (C[i,j]:3,' '); end; writeln;writeln; write ('b) massiv C: '); for i:=1 to 7 do begin writeln; if i>1 then for k:=1 to (i*2)-2 do write(' '); for j:=1 to 10 do write (C[i,j]:3,' '); end; readln; end.

нажми на эту область и скопируй решение


	© 2008 - 2014 Pascal, Паскаль, Турбо Паскаль, Turbo pascal.