Question

ИНФОРМАТИКА 9 КЛАСС ПОМОГИТЕ ПОЖАЛУЙСТА
Дан целочисленный массив из 20 элементов. Элемента массива ввести с клавиатуры. Найти сумму первого и третьего по порядку двузначных чисел. В массиве гарантированно есть более трёх двузначных чисел.
Отсортируйте заданый линейный массив по убыванию.

Answer 1

Const n=20;
var a: array [1..n] of integer;
i,s,k,v,j: integer;
begin
for i:=1 to n do
readln (a[i]);
writeln (a);
for i:=1 to n do
if (a[i] div 100 = 0) and (a[i] div 10 <> 0) then
begin
k:=k+1;
if k=1 then s:=s+a[i];
if k=3 then s:=s+a[i]
end;
writeln (s);
for i:=1 to n do
begin
for j:=1 to n-1 do
if a[j]<a[j+1] then
begin
v:=a[j];
a[j]:=a[j+1];
a[j+1]:=v
end
end;
writeln (a)
end.