Var
i,k:integer;
a:array[1..10]of integer;
begin
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(-10,10);
write(a[i],' ');
end;
writeln;
for i:=1 to 9 do
begin
if a[i]*a[i+1]<0 then k:=k+1
end;
writeln('Число перемен знака: ',k)
<span>end.</span>
var a:array[1..10] of integer;
s,s1:longint;
i,n:integer;
begin
n:=20;
s:=0; s1:=0;
for i:=1 to n do
begin
writeln('Vvedite element ',i);
read(a[i]);
end;
for i:=1 to n do
begin
write(a[i]:4);
end;
writeln;
for i:=1 to n do
begin
begin
if (a[i] mod 2=0) then s:=s+a[i];
end;
begin
if (a[i] mod 5=0) then s1:=s1+a[i];
end;
end;
writeln('Summa kratnix 2 = ',s);
writeln('Summa kratnix 5 = ',s1);
end.
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,10,49); a.Println;
var last:=a[n-1];
for var i:=0 to n-2 do
if Odd(a[i]) then a[i]+=last;
a.Println
end.
Тестовое решение:
n= 15
17 45 34 38 40 30 31 18 30 46 27 39 32 37 30
47 75 34 38 40 30 61 18 30 46 57 69 32 67 30
Программа считает кол-во цифр больше 4-х и кол-во цифр меньше шести в твоем числе.
Первая цифра - это кол-во числе больше 4-х.
Вторая цифра - соответсвенно.
В итоге ответ получается: 10556