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

Вообще не то выводит я просто копировал вставил и он просто выводит последнее число которое я вводил и всё

минутку

исправила вроде. попробуй такой решение

1)var a:array [1..30] of integer;i,min:integer;beginmin:=maxint;for i:=1 to 30 do read(a[i]);for i:1 to 30 doif a[i]<min then min:=a[i];writeln(min)end.2)var a:array [1..30] of integer;i,k:integer;beginmin:=maxint;for i:=1 to 30 do read(a[i]);for i:=1 to 30 doif (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;beginmin:=maxint;for i:=1 to 30 do read(a[i]);for i:=1 to 30 doif a[i] mod 10=0 then s:=s+a[i];writeln(s)end.