1.в программе а: первый цикл for заполняет массив array, случайными числами из указанного диапазона, в цикле while происходит поиск пары чисел по условию начиная с 3го элемента. Если находят выводят, что такая пара есть, в противном случае что такой пары нет.
в программе б:
Вводтся число n, дальше будет использоваться для поиска, дальше как и в программе а, заполняем массив случайными числами в цикле for, в repeat, мы движемся по массив, пока не встретим наше значение n, если встретили, выводим: такое число есть в массиве, в противном случае, такого числа нет.В repeat until реализован линейный алгоритм поиска.
Буду благодарен за отметку "Лучший ответ"
все вопросы в коментарии
4.ТОЛЬКО БОГ
ОбъясОтличник
program prog;
uses crt;
var a,b,v:integer;
begin
clrscr;
write('Возраст Антона = ');
readln(a);
write('Возраст Бориса = ');
readln(b);
write('Возраст Виктора = ');
readln(v);
writeln;
if (a>b)and(a>v) then writeln('Антон старше всех.');
if (b>a)and(b>v) then writeln('Борис старше всех.');
if (v>a)and(v>b) then writeln('Виктор старше всех.');
if (a=b)and(a>v) then writeln('Антон и Борис старше Виктора');
if (a=v)and(a>b) then writeln('Антон и Виктор старше Бориса');
if (b=v)and(b>a) then writeln('Борис и Виктор старше Антона');
if (a=b)and(a=v) then writeln('Антон,Борис и Виктор одного возраста');
end.
Подробнее - на -
