Дан массив целых чисел а(10 элементы с нечетным индексом заменить минимальным элементом

const n = 10; var  a: array[1..n] of integer;   i, min: integer; begin  min : = 20;   for i : = 1 to n do begin    a[i] : = random(20);     if(a[i] < min) then min : = a[i];     write(a[i], ' ');   end;   writeln; writeln('минимальный эл. массива: ', min);   for i : = 1 to n do begin    if(i mod 2 < > 0) then a[i] : = min;     write(a[i], ' ');   end; end.

Var x,a,b: real;     begin         readln(a,b);           while a< =b do               begin                   x: =a;                   writeln('x:   ',x: 4: 2,'   sin x:   ',sin(x): 4: 2);                   a: =a+0.1;                 end; end. блок-схема в файле

Microsoft qbasic: dim n as long cls input "введите число ", n input "введите цифру для поиска ", d flag = 0 do while n > 0 and flag = 0     if d = n mod 10 then           print "цифра в числе есть"           flag = 1     else           n = n / 10     end if loop if flag = 0 then print "цифры в числе нет" end тестовое решение: введите число 5374012 введите цифру для поиска 1 цифра в числе есть