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

Найти сумму целих + чисел, больших 20, меньших 100 и кратных 3. сделать с 3-х цыклов.

Показать ответ
Ответ:
Stepan0305
Stepan0305
08.10.2020 22:30

program Numfind;

uses

 System.SysUtils;

var

 a: array [1..10] of Integer;   // 1..10 размерность массива можно изменять, программа будет работать правильно

 i, s: Integer;

begin

 Randomize;

 for i := Low(a) to High(a) do

   a[i] := - 25 + Random (151);

 WriteLn ('Массив чисел:');

 for i := Low(a) to High(a) do

   Write (a [i], ' ');

 s := 0;

 WriteLn;

 WriteLn;

 WriteLn ('Выбрано: ');

 for i := Low(a) to High(a) do begin  // цикл выбора чисел больше 20

   if (a [i] > 20) then begin

     s := s + a [i];

     Write (A [i], ' ');

   end;

 end;

 WriteLn;

 WriteLn ('Сумма чисел больше 20 = ', s);

 s := 0;

 WriteLn;

 WriteLn ('Выбрано: ');

 for i := Low(a) to High(a) do begin  // цикл выбора чисел меньше 100

   if (a [i] > 0) and (a [i] < 100) then begin

     s := s + a [i];

     Write (A [i], ' ');

   end;

 end;

 WriteLn;

 WriteLn ('Сумма чисел меньше 100 = ', s);

 s := 0;

 WriteLn;

 WriteLn ('Выбрано: ');

 for i := Low(a) to High(a) do begin  // цикл выбора чисел кратных 3

   if (a [i] > 0) and (a [i] mod 3 = 0) then begin

     s := s + a [i];

     Write (A [i], ' ');

   end;

 end;

 WriteLn;

 WriteLn ('Сумма чисел кратных 3 = ', s);

 ReadLn

end.

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