Question

Программа для паскаль. Найти минимальный элемент массива делящийся на 3.

Answer 1

Вроде правильно
const n= ;(поставь любое положительное число, это количество элементов в массиве)
var A:array [1..n] of real; i: integer; min: real;
begin
for i:=1 to n do
begin
readln (a[i]);
writeln ('a[i', i, ']=', a[i]);
end;
min:=a[i];
for i:=1 to n do
if a[i] mod 3=0 then if a[i]<min then min:=a[i];
if (a[1]=min) and (a[1] mod 3<>0) then writeln ('Нет чисел, делящихся на 3') else writeln (min);
end.