В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Данька0007
Данька0007
31.08.2021 12:49 •  Информатика

Каковые сходства и различия между составными и вложенными
с условиями? ​


Каковые сходства и различия между составными и вложеннымис условиями? ​

Показать ответ
Ответ:
nikcentennial
nikcentennial
27.10.2020 00:13

Поэта по праву считают основоположником современного русского литературного языка, и это заслуженно. Стихи Пушкина, что 200 лет назад, что сейчас, понятны абсолютно всем и поражают своей красотой. Именно поэтому еще при жизни Александра Пушкина начали называть гением, что стало причиной своего рода культа вокруг его имени. Благодаря известным стихотворениям многие называли его поэтом-художником, другие – великим народным писателем.

Если вы относитесь к любителям произведений Александра Пушкина, или хотите снова почитать поэмы и стихи великого классика, то можете ознакомиться со списком его работ ниже.

Объяснение:

0,0(0 оценок)
Ответ:
gavno001
gavno001
02.04.2021 22:04

4:

var a: array [1..3] of integer;

   i,min,max : integer;

begin

   for i:= 1 to 3 do

   begin

       write('a[',i,'] = ');

       read(a[i]);

       writeln;

   end;

   min:= a[1];

   max:= a[1];

   for i:= 1 to 3 do

   begin

       if a[i] < min then

       begin

           min:= a[i];

       end;

   end;

   for i:= 1 to 3 do

   begin

       if a[i] > max then

       begin

           max:= a[i];

       end;

   end;

   writeln('min = ',min);

   writeln('max = ',max);

end.

5:

var a: array [1..5] of integer;

   i,max : integer;

begin

   for i:= 1 to 5 do

   begin

       write('a[',i,'] = ');

       read(a[i]);

       writeln;

   end;

   max:= a[1];

   for i:= 1 to 3 do

   begin

       if a[i] > max then

       begin

           max:= a[i];

       end;

   end;

   writeln('max = ',max);

end.

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