Даны целые положительные числа m и n и набор из м чисел. сформировать матрицу размера м х n , у которой в каждом столбце содержатся все числа из исходного набора (в том же порядке ) . из pascal abc.

Const   m = 8;   n = 7; var   a: array[1..m, 1..n] of integer;   i, j: integer; begin   writeln('введите через пробел ', m, ' чисел');   for i : = 1 to m do   begin       read(a[i, 1]);       for j : = 2 to n do a[i, j] : = a[i, 1]   end;   writeln('сформированный массив');   for i : = 1 to m do   begin       for j : = 1 to n do write(a[i, j]: 5);       writeln   end end. тестовое решение: введите через пробел 8 чисел 4 -6 10 93 345 -32 0 11 сформированный массив       4      4      4      4      4      4      4     -6    -6    -6    -6    -6    -6    -6     10    10    10    10    10    10    10     93    93    93    93    93    93    93   345  345  345  345  345  345  345   -32  -32  -32  -32  -32  -32  -32       0      0      0      0      0      0      0     11    11    11    11    11    11    11

Program qq; uses crt; var p, d, z, i: integer; k: real; begin writeln('введите период для отрастания травы в днях: '); readln(p); writeln('введите потребное количество загонов: '); readln(z); for i: =1 to 5 do     begin     d: =i; // переменная дней изменяется, как дано в условии от 1 до 5 дней     k: =round(p/d+z); //процедура round округляет по всем правилам число загонов. ведь весьма нелогично строить, например 3,3333 загона: )     writeln ('для количества дней пастьбы -  ', d,' требуется загонов - ',k);     end; end.

Var a: string; begin writeln ('введите день недели с большой буквы'); read (a); if a='понедельник' then writeln ('в этот день 6 уроков'); if a='вторник' then writeln ('в этот день 6 уроков'); if a='среда' then writeln ('в этот день 6 уроков'); if a='четверг' then writeln ('в этот день 6 уроков'); if a='пятница' then writeln ('в этот день 5 уроков'); if a='суббота' then writeln ('в этот день 3 урока'); if a='воскресенье' then writeln ('в этот день уроков нет'); if (a< > 'понедельник') and (a< > 'вторник') and (a< > 'среда') and (a< > 'четверг') and (a< > 'пятница') and (a< > 'суббота') and (a< > 'воскресенье') then writeln ('день недели введен неправильно'); end.