manager-3
?>

На якій вкладці знаходяться інструменти налаштування параметру сторінок: розмір аркушу, поля, колонтитули тощо?​

Информатика

Ответы

Nikolai_oksana

{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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

На якій вкладці знаходяться інструменти налаштування параметру сторінок: розмір аркушу, поля, колонтитули тощо?​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Ромеовна1527
Naumenkova-Ivanov
vera4
kol-nat26
d892644813661946
sergey
evrotrastop64
yrgenson2011801
kapral1812
olofinskayae
krasnobaevdj3
lenacari
alisapavlushina
vallium8354
Aleksandrovich1415