Мне нужна помош прямо сейчас !!! ПЛИЗЗЗ

[mela]

Мне в течение часа надо сделать Блох схемы для двух програм, а я делать не умею их, а времемени в обрез помогите кто умеет плизззени ,
Вот те самые программы:

program Massivi8_2;
uses crt;
var n,k,l,i,j,x: integer;
a: array[1..20,1..3] of integer;
b: array[1..20,1..3] of integer;
c: array[1..3] of integer;
begin
clrscr;
randomize;
write('Введите количество строк: '); readln(n); writeln;
writeln('Сгенирирован массив:'); writeln;
for i:=1 to n do
begin
for j:=1 to 3 do
begin
a[i,j]:=i;b
[i,j]:=a[i,j];
write(a[i,j],' ');
end; writeln;
end; writeln;
Repeat
write('Введите номер строки K: '); readln(k);
if k>n then
Begin
writeln('Значение K должно быть меньше либо равно ',n,'!');
end;
if k<=0 then
writeln('Значение K должно быть больше нуля!');
until (k<=n) and (k>0);
writeln;
Repeat
write('Введите номер строки L: '); readln(l);
if l>n then
Begin
writeln('Значение L должно быть меньше либо равно ',n,'!');
end;
if l<=0 then
begin
writeln('Значение L должно быть больше нуля!');
end;
if l=k then
begin
writeln('L не должно быть равным с K!')
end;
until (l<=n) and (l>0) and (l<>k);
writeln;
writeln('Преобразованный массив:');
if k<l then
begin
for i:=1 to 3 do
c[i]:=a[k+1,i];
for i:=1 to 3 do
a[k+1,i]:=a[l,i];
for i:=k+2 to l do
for j:=1 to 3 do
a[i,j]:=b[i-1,j];
end;
if k>l then
begin
for i:=1 to 3 do
c[i]:=a[l,i];
for i:=l to k-2 do
for j:=1 to 3 do
a[i,j]:=b[i+1,j];
for i:=1 to 3 do
a[k-1,i]:=b[k,i];
for i:=1 to 3 do
a[k,i]:=c[i];
end;

for i:=1 to n do
begin
for j:=1 to 3 do
begin
write(a[i,j],' ');
end;
writeln;
end;
writeln;
readln;
end.
Вот вторая:
program Massivi8_1;
uses crt;
var n,k,i,j: integer;
a: array[1..20,1..20] of integer;
b: array[1..20] of integer;
im: array[1..20] of integer;
jm: array[1..20] of integer;
max,min,imax: integer;
begin
clrscr;
randomize;
repeat
write('Введите количество строк: '); readln(n);
if (n<=0) or (n>20) then
writeln('Недопустимое значение. Количество строк должно быть от 1 до 20.');
writeln;
until (n>0) and (n<=20);
repeat
write('Введите количество столбцов: '); readln(k);
if (k<=0) or (k>20) then
writeln('Недопустимое значение. Количество строк должно быть от 1 до 20.');
writeln;
until (k>0) and (k<=20);
writeln('Сгенерирован массив: '); writeln;
for i:=1 to n do
begin
for j:=1 to k do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
end; writeln;
end; writeln;
writeln('Для получения результата нажмите Enter'); writeln; readln;
for i:=1 to n do
begin
Min:=a[i,1];
for j:=1 to k do
if min>=a[i,j] then
Begin
Min:=a[i,j];
im[i]:=i;
jm[i]:=j;
b[i]:=Min;
end;
writeln('Наименьшее значение в ',i,'-ой строке: ',Min);
end; writeln;
Max:=b[1];
For i:=1 to n do
if max<=b[i] then
Begin
Max:=b[i];
imax:=i;
end;
writeln('Наибольшее число среди полученных елементов: ',Max, ' с индексом [', im[imax],',',jm[imax],']');
readln;
end.

[Дикий]

Раздел: Помощь студентам
а не
Работа за студентов

особенно когда ты так требовательно просишь

[Sasha_Smirnov]

Ну работы тут особой-то и нет, ибо есть возможность сделать это автоматически! Надо лишь найти в сети fceditor.

[KORN]

ну наглеж.... задачу ей наверняка написали, вот теперь ей и блок схему нужно... вот так вот у нас студент(ы)ки и учатся, за счет нас...

[5naip]

ну,если вы умнее становитесь, то вам от этого вряд ли хуже

[KORN]

Сообщение от 5naip

ну,если вы умнее становитесь, то вам от этого вряд ли хуже

умнее от чего, от решения одних и тех же задач7