№1 С клавиатуры вводятся 10 целых чисел, не превышающих по модулю 20 000. Определить,...

Question

№1 С клавиатуры вводятся 10 целых чисел, не превышающих по модулю 20 000. Определить, сколько среди них положительных, но не оканчивающихся нулем.
№2 С клавиатуры вводятся 10 целых чисел, не превышающих по модулю 20 000. Определить, сколько среди них четных, но не кратных трем.
№3 С клавиатуры вводятся 10 целых чисел, не превышающих по модулю 20 000. Определить минимальное число.
Умоляю, хотя бы одну !!! пожалуйста

Answer 1

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]end;
write(k, ' ', k1, ' ', min);
end.

Answer 2

Все три сделал, не надо благодарностей))

Comments

спасибо, добрый человек)))

---

Незачто)