anastasiyalis7
06.05.2021 02:36

Укажите виды алгоритмической конструкции повторение

с заданным числом повторений

с постусловием

с продолженным условием работы

с оконченным условием работы

с условием продолжения работы

с условием повторения работы

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
kmelashenko
29.04.2021 16:53

var  n:integer;

begin

read(n);

if (n=1) or (n=2) then writeln('1') else

        if n<=999 then

           if n mod 3 = 0 then writeln('2')

           else writeln('1')

           else if (n-1000) mod 3=0 then writeln('1')

           else writeln('2')

end.

var  n:integer;

begin

read(n);

if (n=1) or (n=2) then write('1') else                      

      if n<=999 then

           if n mod 3 = 0 then writeln('2')

           else writeln('1')

           else if (n-1000) mod 3=0 then write('1')

           else writeln('2')

end.

0,0(0 оценок)
Ответ:
Saniek34
29.08.2021 15:09

const N = 100;

const MAX = 50;

const MIN = -50;

var A: array [1..N] of integer;

var i,j,s,tmp: integer;

begin

randomize();

writeln('Исходный массив: ');

for i:=1 to N do

 begin

 A[i]:=random(MAX-MIN+1)+MIN;

 write(A[i],' ');

 end;

writeln();

for i:=1 to N do

 for j:=i to N do

   begin

   if (A[j]<A[i]) then

     begin

     tmp:=A[i];

     A[i]:=A[j];

     A[j]:=tmp;

     end;

   end;  

writeln('Отсортированный массив: ');

for i:=1 to N do write(A[i],' ');

writeln();

writeln('Сумма трех самых больших чисел: ',A[100]+A[99]+A[98]);

writeln('Попарные суммы самых больших и самых маленьких: ');

for i:=1 to N do write(A[i]+A[N-i+1],' ');

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота