Question

в массиве из 30 элементов найти:1-номер минимального элемента 2-количество двухзначных чисел 3-сумму тех чисел на конце которых ноль,ре
шите пожалуйста в в паскале ,3 программы отдельно))срочно срочно

Answer 1

1)
var a:array [1..30] of integer;
i,min:integer;
begin
min:=maxint;
for i:=1 to 30 do 
read(a[i]);
for i:1 to 30 do
if a[i]<min then min:=a[i];
writeln(min)
end.
2)
var a:array [1..30] of integer;
i,k:integer;
begin
min:=maxint;
for i:=1 to 30 do 
read(a[i]);
for i:=1 to 30 do
if (a[i] mod 10<=9) and (a[i] div 10<=9)  then inc(k);
writeln(k)
end.
3)
var a:array [1..30] of integer;
i,s:integer;
begin
min:=maxint;
for i:=1 to 30 do 
read(a[i]);
for i:=1 to 30 do
if a[i] mod 10=0 then s:=s+a[i];
writeln(s)
end.