// Листинг программы и скриншот результата в приложениях.
const max_v = 15; m1 = -20; m2 = 50;
var i,j:byte; v:array [1..max_v] of integer; a,b:integer;
// начальное заполнение массива procedure randomArray(tx:string); var i:byte; begin writeln(tx); randomize();
for i:=1 to max_v do begin v[i]:=random(m1,m2); write(v[i]:6); end; writeln(''); writeln(''); end;
begin randomArray('Начальный массив'); writeln('Вывести все элементы,в записи которых есть цифра 5 или 7');
for i:=1 to max_v do begin //десятки числа a:=v[i] div 10; //единицы числа b:=v[i] mod 10; if (a=7) or (a=5) or (b=7) or (b=5) then writeln(v[i]); end;
procedure hase(var k,n,max:integer); //сама последовательность begin if not(odd(n)) then n:=n div 2 else n:=n*3+1; //условие про чётность writeln(n); //вывод нового члена последовательности inc(k); //увеличение значения счётчика шагов if max<n then max:=n; //поиск вершины end;
procedure start(var k,n,max:integer); //название процедуры намекает begin readln(n); k:=0; writeln('Seq:'); max:=integer.MinValue; while n<>1 do hase(k,n,max); writeln('Шаги:',k); writeln('Вершина:',max); end; begin start(k,n,max); end. Пример ввода: 6 Пример вывода: Seq: 3 10 5 16 8 4 2 1 Шаги:8 Вершина:16
![Дан массив целых чисел из 15 элементов,заполнненый случайным образом числами из промежутка [-20,50]](/tpl/images/0835/4008/0d027.jpg)
1)в строке формул