Не поняв?Обясни в чём смысыл?
1)
program test;
uses crt;
var
arr:array[1..10] of integer;
i,cou:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('Itput arr[',i,'] ');readln(arr[i]);
if (arr[i]>0) and (arr[i] mod 2 = 0) then cou:=cou+1;
end;
writeln(cou);
end.
2)Тут вообще можно 1 циклом обойтись, но так не надо заворачиваться с перетаскиванием курсора.
program test;
uses crt;
var
arr:array[1..10] of integer;
i:integer;
begin
randomize;
clrscr;
for i:=1 to 10 do
begin
arr[i]:=random(20)+1;
write(arr[i],' ');
end;
writeln;
for i:=1 to 10 do
if (arr[i]>5) and (arr[i]<15) then write(arr[i],' ');
end.
делим монеты на 3 кучи в каждой по 3 монеты, ложим на весы 2-е кучи, какая из них тежелей в той и золотая монета, если кучи одинаково весят, то золотая монета в той куче которую не звешвали. Теперь берем ту кучу в которой золотая монета (мы еще не знаем какая она) ложим 2-е монеты на весы, какая монета тежелее та и золотая если монеты одинаково весят то золотая монета та которую мы не положили на весы, задача решина. 1-н ворпрос это задачи для 3-го класса?
Сначала 1, потом 3, потом 2
MAS = list(map(int, input().split ()))
has_bad_value = false
min = MAS[0]
for elem in MAS:
if elem < min and elem % 2 == 0:
has_bad_value = true
min = elem
if has_bad_value:
print (min)
else:
print ("0")