Потрібно написати програму, яка в масиві цілих чисел знаходить суму двоцифрових чисел. Кількість елементів масиву можна вводити самостійно(в межах від 10 до 50)(Інформатика 9 клас) Потрібно написати в Delfi7
Const N = 33; Var A:array[1..N] of integer; i,k,M,d:integer; Begin Randomize; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(N div 10+1); Write(' ',A[i]) End; WriteLn; k:=1; d:=0; For i:=1 to N-1 do if (A[i]=A[i+1]) then k:=k+1 else Begin if k>d then Begin d:=k; M:=i; End; k:=1; End; if d>1 then WriteLn('Искомая последовательность начинается с элемента №',M-d+1,', и заканчивается элементом №',M,'') else if d>0 then WriteLn('В массиве нет, стоящих рядом, равных чисел') else WriteLn('Все числа в последовательности равны'); End.
var a: array [1..5] of integer;
i, j , count: integer;
repeated : boolean;
begin
for i := 1 to 5 do
begin
write('Введите ', i, '-e число: ');
readln(a[i]);
end;
for i := 1 to 5 do
begin
repeated := false;
for j := 1 to i - 1 do
if (a[i] = a[j]) then
repeated := true;
if repeated then continue;
count := 1;
for j:= i+1 to 5 do
if (a[i]=a[j]) then
inc(count);
writeln('Число ', a[i], ' встречается ', count,' раз');
end;
end.