№1 С клавиатуры вводятся 10 целых чисел, не превышающих по модулю 20 000. Определить, сколько среди них положительных, но не оканчивающихся нулем. №2 С клавиатуры вводятся 10 целых чисел, не превышающих по модулю 20 000. Опреде...
№1 С клавиатуры вводятся 10 целых чисел, не превышающих по модулю 20 000. Определить, сколько среди них положительных, но не оканчивающихся нулем.
№2 С клавиатуры вводятся 10 целых чисел, не превышающих по модулю 20 000. Определить, сколько среди них четных, но не кратных трем.
№3 С клавиатуры вводятся 10 целых чисел, не превышающих по модулю 20 000. Определить минимальное число.
Умоляю, хотя бы одну !!! пожалуйста
Гость
Ответ(ы) на вопрос:
Гость1.
const n=10;
var
a:array[1..n] of integer;
i, k, k1, min: integer;
begin
k:=0; k1:=0;
for i:=1 to n do
read(a[i]);
min:=a[1];
for i:=1 to n do begin
if (a[i]>0)and(a[i] mod 10<>0) then k:=k+1; //первое условие//
if (a[i] mod 2=0)and(a[i] mod 3<>0) then k1:=k+1; //второе условие//
if a[i]
ГостьВсе три сделал, не надо благодарностей))
Не нашли ответ?
Похожие вопросы