Program sum;
var
Arr: array [1..10] of integer;
n,i: integer;
Sum: integer;
begin
{Заполнение массива и подсчёт суммы}
n:=10;
randomize;
Sum:=0;
for i:=1 to n do begin
Arr[i]:=random(100);
write(Arr[i],',');
if Arr[i] mod 5=0 then
Sum:=Sum+Arr[i];
end;
writeln;
writeln('сумма элементов кратных 5 равна ', Sum);
readln;
end.
1) Вычисляем длины всех его сторон
var a,b,c,d,e: integer;
begin
write('Введите a=');
read(a);
b:=10;
c:= a+b;
writeln('Сумма равна ',c);
e:=0;
while c>0 do
begin
d:=c mod 10;
c:=c div 10;
e:=e+1;
end;
writeln('В числе ', e, ' цифр(-a/-ы)');
end.
Если возьмем массив 0 1 2 3 4 5 6 7 8 9 10
ОТвет: 52