Напишите блок-схему к двум программам: var a: array [1..12] of integer; i: byte; min, indexmin: integer; begin i : = 1; indexmin : = 1; while (i < 13) do begin write('a[',i,'] = '); readln(a[i]); if i = 1 then min : = a[1] else if (a[i] < min) then begin min : = a[i]; indexmin : = i; end; i : = i + 1; end; i : = 0; repeat i : = i + 1; if (i = indexmin) then a[i] : = 1; write(a[i]: 4); until (i = 12); end. var a: array [1..5,1..4] of integer; i, j, min, imin, jmin: integer; begin for i: =1 to 5 do for j: =1 to 4 do a [i,j]: =random(21)+1; for i: =1 to 5 do begin for j: =1 to 4 do write (a[i,j]: 4); writeln; end; min: =a[1,1]; imin: =1; jmin: =1; for i: =1 to 5 do for j: =1 to 4 do if a[i,j] writeln; for j: =1 to 4 do write (a[imin,j],' '); writeln; for i: =1 to 5 do write (a[i,jmin],' '); end.
program name;
var x, y, a, b: real;
begin
write('Введите x, y, a, b: ');
readln(x,y,a,b);
if (x > a) then begin
if(y > b) then begin
write('Треугольник со сторонами ', a);
write(' и ', b, ' поместится на листе бумаги.');
end;
else writeln('Треугольник не поместится на листе бумаги');
else writeln('Треугольник не поместится на листе бумаги');
end.