Напишите пожалуйста блок-схемы к задачам.Очень надо!!!Положение хуже
некуда.К понедельнику не сдам -хана мне.Умоляю помогите!!!Заранее всем
большое спасибо.(Сделайте,если не сложно).
Задачи на паскале.
1)Двумерный массив А(13,14) заполнен случайным образом целыми числами в
диапазоне от -500 до 500 .Найти среднее значение по каждому столбцу и
каждой строке и количество элементов превышающих найденное среднее зна-
чение по каждому столбцу и каждой строке. Вывести исходный массив и най-
денные значения на экран.
const
NRow = 13;
NCol = 14;
one : real = 1.0;
RANGE_RAND = 500;

var
i, j : integer;
a : array[1..NRow, 1..NCol] of integer;
kRow : array[1..NRow] of integer;
kCol : array[1..NCol] of integer;
midRow : array[1..NRow] of real;
midCol : array[1..NCol] of real;

begin
randomize;

for i := 1 to NRow do
for j := 1 to NCol do a[i,j] := random(RANGE_RAND * 2 + 1) - RANGE_RAND;

for i := 1 to NRow do midRow[i] := 0;
for j := 1 to NCol do midCol[j] := 0;

for i := 1 to NRow do
for j := 1 to NCol do begin
midRow[i] := midRow[i] + a[i,j];
midCol[j] := midCol[j] + a[i,j];
end;

for i := 1 to NRow do midRow[i] := midRow[i] / NCol;
for j := 1 to NCol do midCol[j] := midCol[j] / NRow;

for i := 1 to NRow do kRow[i] := 0;
for j := 1 to NCol do kCol[j] := 0;

for i := 1 to NRow do
for j := 1 to NCol do begin
if (a[i,j] * one > midRow[i]) then inc(kRow[i]);
if (a[i,j] * one > midCol[j]) then inc(kCol[j]);
end;

writeln;
writeln;
writeln;

writeln(' | 1 2 3 4 5 6 7 8 9 10 11 12 13 14| средн');
writeln('--+---------------------------------------------------------------------+------');
for i := 1 to NRow do begin
write(i:2, '|');
for j := 1 to NCol do begin
if (j = 1) then write(a[i,j]:4) else write(a[i,j]:5);
end;
write('|');
write(midRow[i]:6:1);
writeln;
end;
writeln('--+---------------------------------------------------------------------+------');
writeln('Средние значения по столбцам:');
for j := 1 to NCol do begin
write(j:2, ' : ', midCol[j]:6:1, '; ');
if (j mod 5 = 0) then writeln;
end;
writeln;

write('Количество элементов в строках,превышающих среднее значение:');
for i := 1 to NRow do begin
write(i:2, ':', kRow[i]:2, '; ');
if (i = 2) then writeln;
end;
writeln;
writeln(''Количество элементов в столбцах,превышающих среднее значение: ');
for j := 1 to NCol do begin
write(j:2, ' : ', kCol[i]:2, '; ');
if (j = 7) then writeln;
end;
end.
2)Даны 3 целых числа.Напишите программу,которая находит среди них пару
чисел с наименьшим общим кратным.Числа вводятся с клавиатуры.Наименьшее
общее кратное пар чисел определяется в подпрограмме.

var
a, b, c, NOKab, NOKbc, NOKac : longint;

function NOD(a, b : longint) : longint;
begin
a := abs(a);
b := abs(b);
while (a > 0) and (b > 0) do begin
if (a > b) then a := a mod b else b := b mod a;
end;
if (a > 0) then NOD := a else NOD := b;
end;

function NOK(a, b : longint) : longint;
begin
NOK := a * b div NOD(a, b);
end;

begin
writeln;
writeln;
writeln;
write('Введите 3 целых положительных числа(через пробел): ');
readln(a, b, c);
if (a <= 0) or (b <= 0) or (c <= 0) then begin
writeln('ОШИБКА! Одно или несколько из введенных чисел не являются положительными.');
writeln('Понятие наименьшее общее кратное определено только для натуральных чисел.');
halt(0);
end;
NOKab := NOK(a, b);
NOKbc := NOK(b, c);
NOKac := NOK(a, c);
if (NOKab <= NOKbc) and (NOKab <= NOKac) then begin
writeln('Из возможных пар введенных чисел пара чисел ', a, ',', b, ' обладает наименьшим НОК равным ', NOKab, '.');
end else
if (NOKbc <= NOKab) and (NOKbc <= NOKac) then begin
writeln('Из возможных пар введенных чисел пара чисел ', b, ',', с, ' обладает наименьшим НОК равным ',NOKbc, '.');
end else
if (NOKac <= NOKbc) and (NOKac <= NOKab) then begin
writeln('Из возможных пар введенных чисел пара чисел ', a, ',', c, ' обладает наименьшим НОК равным ', NOKac, '.');
end;
end.