1. Как человек использует разветвляющиеся алгоритмы в жизни? Приведите примеры.
2. Почему во многих задачах невозможно обойтись без использования разветвляющихся алгоритмов?
И ещё три задания прикреплены. Буду очень благодарен, если со всеми 5 заданиями
program MassivMaxCount;
Uses Crt;
const n=1000;
var j,m,c:integer;
var a: arrray [1..n] of real;
begin
randomize;
clrscr;
write('Введите количество элементов массива n<1000: ');
readln(m);
c:=0;
max:=a[1];
for i:=1 to m do
begin
a[i]:=random(20)+5;
if (a[i]>max) tnen max:=a[i]
end;
for i:=1 to m do
if (a[i]=max) then c:=c+1;
writeln('Количество элементов равных наибольшему: ',c);
readkey;
end.