Дан одномерный массив состоящий из N вещественных чисел. Найти среди них минимальный кратный 3 элемент массива. Нужна блок-схема или, если кому удобнее, программа на Паскале.
Program z1; Var a: array [1..100] of integer; i,min,n:integer;Begin write(Введите размерн массива - ); readln(n); randomize; for i:=1 to n do begin a[i]:=random(20)+1; write (a[i], ); end; for i:=1 to n do if (a[i] mod 3 = 0) then min:=a[i]; for i:=1 to n do if ((a[i] mod 3 = 0)and (a[i]
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
