minnegulovdamir

14.10.2021 05:38 •  Информатика

Сделать блок-схему по имеющемуся коду pascal program daumoh; const n = 25; type mas = array[1..n] of real; var a: mas; i, g: byte; k: real; begin randomize; write('оригинальный: '); for i : = 1 to n do begin a[i] : = random; write(a[i]: 6: 2); end; k : = a[1]; for i : = 1 to n do if a[i] < k then begin k : = a[i]; g : = i; end; writeln; write('полученный: '); a[g] : = a[1]; a[1] : = k; for i : = 1 to n do write(a[i]: 6: 2); readln; end.