Const n=4; var f: text; a: array[1..n,1..n] of integer; i,j,t: integer; begin writeln('1: '); assign(f,'my.txt'); reset(f); for i: =1 to n do begin for j: =1 to n do begin read(f,a[i,j]); write(a[i,j]: 3); end; readln(f); writeln; end; close(f); for i: =1 to n do for j: = i+1 to n do begin t: =a[i,j]; a[i,j]: =a[j,i]; a[j,i]: =t; end; writeln('2: '); for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 3); writeln; end; end. пример: файл my.txt: 23 28 19 23 34 14 8 14 44 20 14 48 38 47 20 41 результат: 1: 23 28 19 23 34 14 8 14 44 20 14 48 38 47 20 41 2: 23 34 44 38 28 14 20 47 19 8 14 20 23 14 48 41
sastakhova
24.09.2021
Первое: program qw; var a,b,h,s: real; begin; writeln('введите длину оснований и высоту: '); read(a,b,h); s: =(a+b)*h/2; write('площадь трапеции равна ', s); end. второе: program qe; var a,b,s: real; begin; write('введите катеты треугольника: '); read(a,b); s: =0.5*a*b; write('площадь треугольника равна ',s); end.