{PascalABC}
Program Begenjov1997;
const
n = 30; {Количество элементов массива}
m = 10000; {Максимально возможное значение элемента}
var
a:array[1..n] of integer;
i, sum: integer;
s:string;
begin
s:=' -=Alphaeus=- ';
for i:=1 to 22 do begin write(s[i]); sleep(60) end;
{заполняем массив случайными числами}
writeln; randomize;
for i:=1 to n do
begin
a[i]:=random(m+1);
end;
{Ищем максимальную сумму двух соседних элементов}
sum:=a[1]+a[2];
for i:=2 to n-1 do
if (a[i]+a[i+1]>sum) then sum:=a[i]+a[i+1];
{Заменяем элементы, кратные 3, наденной суммой}
for i:=1 to n do
if (a[i] mod 3 = 0) then a[i]:=sum;
{Вывод}
writeln('Массив А в обратном порядке:');
for i:=0 to n-1 do writeln(a[n-i],' ');
writeln();
writeln('Максимальная сумма двух соседних элементов равна ',sum);
end.
var
k1,k2,k3,i,n: integer;
a: array [1..100] of integer;
begin
write('n=');
readln(n);
k1:=0;k2:=0;k3:=0;
for i := 1 to n do
begin
write('a[i]:= ');
readln(a[i]);
end;
for i:=1 to n do
begin
if(a[i]<0) then k1:=k1+1 else
if(a[i]>0) then k2:=k2+1;
if(a[i]=0) then k3:=k3+1 else
end;
writeln('Otricatelnih= ',k1, ' polozhitelnih= ',k2, ' ravnih nulu= ',k3);
readln;
end.
Объяснение:
э