Дано масив А[1..5]. Запишіть оператори для реалізації завдань: а) знайти добуток елементів масиву;
б) знайти максимальний елемент масиву;
в) знайти кількість додатних елементів масиву;

Free Pascal.  Все три задания в одном коде.

Объяснение:

const k=10;

var

 a, i, n: integer;

 s : double;

 ar : array[0..k-1] of integer;

begin

 writeln('Задание 4');

 write('Введите число : ');

 readln(a);

 for i:=8 to 18 do

   if a>=0 then

     write(sqrt(i):2:2, '  ')

   else

     writeln((i+0.8):2:1);

 writeln();

 writeln('---------------------------------');

 writeln('Задание 5');

 write('Введите n : ');

 readln(n);

  s:=0;

  for i:= 1 to n do

    s := s + i/2;

  writeln('Сумма ряда = ', s:2:1);

  if s>10 then

    writeln('Сумма ряда больше 10')

  else

    writeln('Сумма ряда меньше 10');

 writeln('---------------------------------');

 writeln('Задание 6');

 for i:=0 to k-1 do begin

   write('введите [', i, '] = ');

   readln(ar[i]);

 end;

 n:=0;

 for i:=0 to k-1 do

   if (ar[i] mod 2 = 0) then

     inc(n);

 writeln('Кол-во чётных чисел = ', n);

end.

numberStr = input('Введите число: ') # запрашиваем ввод числа

digits = [] # список, куда разложим число на цифры

for digit in numberStr: # см. объяснение

   digits.append(int(digit))

print(f'Наименьшее число: {min(digits)}')

print(f'Наибольшее число: {max(digits)}')

Объяснение:

Мы проходим циклом каждую цифру в числе: оно в переменной numberStr записывается как строка, а строки представляют собой список (list) из "букв" (в данном случае, цифр).

digits.append(int(digit)) записывает в подготовленный список каждую цифру как отдельное число.

Последние две строки: min() и max() — это встроенные функции Python, которые выбирают из списка наименьший и наибольший элемент.