Const nx=30; mx=30; var r:array[1..nx,1..mx] of integer;b:array[1..mx] of integer; i,j,n,m,k,sum,min:integer; begin min:=40; randomize; write('Введите n,m: ');readln(n,m); writeln('Исходная матрица: '); for j:=1 to m do begin for i:=1 to n do begin r[i,j]:=random(20)-10; sum:= sum + r[i,j];end; b[j]:=sum;sum:=0; end; for i:=1 to n do begin for j:=1 to m do begin write(r[i,j]:4);end; writeln;end; writeln; for j:=1 to m do begin write(b[j]:4); if min > b[j] then begin min:= b[j]; k:= j;end; end; writeln;writeln; for i:=1 to n do begin for j:=1 to m do begin if j=k then write(r[i,j]:4);end; writeln;end; end.
Некорректная задача. Блок схема нужна только тогда, когда есть условия, циклы и т. п. Здесь f вычисляется в одну строчку:
var f: real; var x: real;
x := 8; { 16, 24 }
f := 4*x*x*x + 2*x - 1;
Далее идет исправленное решение задачи для Бочонка228 (в его задаче просто не могу изменить решение):
type pupil = record name: string[20]; sex: (female, male); age: integer; height: 140..200 end;
begin
var i, a: integer;
var group: array [1..10] of pupil;
for i:= 1 to 10 do begin writeln(i); writeln('Name:'); readln(group[i].name); writeln('Sex (1-male, 2-female):'); readln(a);
if a = 1 then begin group[i].sex := pupil.male; end else begin group[i].sex := pupil.female; end;
group[i].age := 0; while (group[i].age < 6) or (group[i].age > 100) do begin writeln('Age (6-100):'); readln(group[i].age); end;
group[i].height := 0; while (group[i].height < 140) or (group[i].height > 200) do begin writeln('Height (140-200):'); readln(group[i].height); end; end;
for i := 1 to 10 do begin if (group[i].age <= 30) and (group[i].sex = pupil.female) then begin writeln(group[i].name); writeln(group[i].age); writeln(group[i].height); end end
var r:array[1..nx,1..mx] of integer;b:array[1..mx] of integer;
i,j,n,m,k,sum,min:integer;
begin
min:=40;
randomize;
write('Введите n,m: ');readln(n,m);
writeln('Исходная матрица: ');
for j:=1 to m do begin
for i:=1 to n do begin
r[i,j]:=random(20)-10;
sum:= sum + r[i,j];end;
b[j]:=sum;sum:=0;
end;
for i:=1 to n do begin
for j:=1 to m do begin
write(r[i,j]:4);end;
writeln;end;
writeln;
for j:=1 to m do begin
write(b[j]:4);
if min > b[j] then begin
min:= b[j]; k:= j;end;
end;
writeln;writeln;
for i:=1 to n do begin
for j:=1 to m do begin
if j=k then write(r[i,j]:4);end;
writeln;end;
end.