Const k = 4; p = 6; var f: array [1..k, 1..p] of byte; begin for i: byte : = 1 to k do begin for j: byte : = 1 to p do begin f[i, j] : = random(10, 100); write(f[i, j]: 3); end; writeln(); end; ////////////////////////////////////////////////// writeln(); f[k, p] : = k * p; ////////////////////////////////////////////////// for i: byte : = 1 to k do begin for j: byte : = 1 to p do write(f[i, j]: 3); writeln(); end; end.
samira57
20.04.2021
Program maxim; const n=15 {15 студентов}; var a: array[1..n] of integer; i,max: integer; begin randomize; for i: =1 to n do begin a[i]: =random(10){кол-во до 15}; write (a[i],' '); end; max: =a[1]; for i: =2 to n do begin if a[i]> max then max: =a[i]; end; writeln; writeln (max); end.
ответ:
воспроизводить произведение или часть его, переводить или создавать на его основе.
объяснение:
воспроизводить-создавать копию! перепечатывать нельзя.