ПРАКТИЧЕСКАЯ РАБОТА «РАЗВЕТВЛЯЮЩИЕСЯ АЛГОРИТМЫ 1. Введены 2 числа. найти наименьшее. 2. Введень 3 числа. найти наибольшее. 3. Введены 2 числа. вывелите их произведение, если первое больше Второго и разность в противном случас. 4. Ввели 3 числа, выясните, является ли их сумма нечетным числом? 5. Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 10% прелоставляется. если сумма покупки больше 1000 руб. 6. Паписать программу вычисления cопротивления электрической цепи. состоящей из двух сопротивлений. Сопротивления могут быть соединены последовательно или параллельно. 7. Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендацию о необходимости поправиться или похудеть. Оптимальный вес вычисляетея по формуле: рост (в сантиметрах)-100.
uses crt;
var
m,n,i,j,k,l:integer;
mas: array[1..99,1..99] of integer;
masb: array [1..99] of integer;
begin
clrscr;
write('vvedite m');
readln(m);
write('vvedite n');
readln(n);
writeln('vvedite massiv MxN')
;for i:=1 to m do
for j:=1 to n do
begin
write('mas[',i,',',j,']= ');
readln(mas[i,j]);
end;
for i:=1 to m do
begin
k:=mas[i,1];
l:=mas[i,1];
for j:=1 to n do
begin
if k < mas[i,j] then k:=mas[i,j];
if l > mas[i,j] then l:=mas[i,j];
end;
masb[i]:=k-l;
end;
for i:=1 to m do
begin
for j:=1 to n do
write(mas[i,j],' ');
writeln('result = ',masb[i]);
end;
readln(i)
end.