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

Question

Информатика

Элисса

1 сентября, 19:16

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

+4

Ответы (1)

Знаете ответ на вопрос?

Феофилакт · 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]
if (a[1]=min) and (a[1] mod 30) then writeln ('Нет чисел, делящихся на 3') else writeln (min) ;

end.