profile
Опубликовано 5 лет назад по предмету Информатика от fara3332

Составить программу, которая подсчитывает сумму элементов массива, больших 50 и меньших или равных 80.

  1. Ответ
    Ответ дан fedrfedr

    var

     A: array [1..10] of Integer;

     i, s: Integer;

    begin

     Randomize;

     WriteLn ('Массив:');

     for i := Low (A) to High (A) do begin

       A [i] := Random (100);

       Write (A [i], ' ');

     end;

     for i := Low (A) to High (A) do begin

       if (A [i] > 50) and (A [i] <= 80) then

         s := s + A [i];

     end;

     WriteLn;

     WriteLn ('Сумма элементов массива = ', s);

    end.


Самые новые вопросы
Носкова Анастасия
Другие предметы - 4 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Наумова Надя
Другие предметы - 4 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

Сазонова Анастасия
История - 4 года назад

Кто такой мильтиад и какова его роль в победе над персами?

Тетерина Татьяна
История - 4 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

Попова Полина
География - 4 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.