1 / 1 / 1
Регистрация: 13.11.2012
Сообщений: 46
1

Задать случайным образом одномерный массив из 18 целочисленных элементов, принадлежащих отрезку [-14;14]. Найти сумму элементов массива, кратных пяти.

15.11.2012, 16:57. Показов 7304. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста написать прогу в паскале: задать случайным образом одномерный массив из 18 целочисленных элементов, принадлежащих отрезку [-14;14]. Найти сумму элементов массива, кратных пяти. Закрасить указанные элементы.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.11.2012, 16:57
Ответы с готовыми решениями:

Сформировать одномерный массив из 25 элементов случайным образом, найти произведение положительных чисел
Нужна помощь в решений задачи и подскажите как её объяснить. Завтра уже отнести надо( Заранее...

Одномерный массив. Найти произведение элементов массива, кратных 5 и сумму элементов массива, которые приделении на 7 дают остаток 3.
Задан одномерный массив из N элементов. Размерность массива и сам массив вводятся с клавиатуры....

Найти сумму элементов массива, не принадлежащих отрезку
одномерные массивы: 1) В массиве чисел А1, А2, …, An найти сумму элементов, не принадлежащих...

Найти сумму элементов массива, кратных пяти
Задать случайным образом одномерный массив из 18 целочисленных элементов, принадлежащих отрезку ....

1
5 / 8 / 11
Регистрация: 06.11.2012
Сообщений: 36
15.11.2012, 18:34 2
Лучший ответ Сообщение было отмечено TheAragorn как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt;
var
  a:array [1..18] of integer;
  i,s:integer;
    begin
      randomize;
      for i:=1 to 18 do
        begin
          s:=0;
          a[i]:=random(29)-14;
          write(a[i],' ' );
          end;
          writeln;
           for i:=1 to 18 do
          if (a[i] mod 5=0) and (a[i]<>0) then begin
            s:=s+a[i];
            textcolor(12);
            write (a[i],' ');
            textcolor(7);
            end
            else write (a[i],' ');
            writeln;
   writeln('Сумма элементов, кратных пяти = ',s);            
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.11.2012, 18:34
Помогаю со студенческими работами здесь

Задать массив случайным образом. Найти количество элементов, больших заданного числа, в массиве
2. Задать массив случайным образом. Найти количество элементов, больших заданного числа, в...

Найти сумму элементов одномерного массива, кратных пяти
Задать случайным образом одно мерный массив из 18 целочисленных элементов, принадлежащих отрезку ....

Задать случайным образом одномерный массив размерности N из целочисленных элементов, принадлежащих отрезку
Задать случайным образом одномерный массив размерности N из целочисленных элементов, принадлежащих...

Задать случайным образом одномерный массив размерности N из целочисленных элементов, принадлежащих отрезку [-20;20]. Выполнить задание своего ва
Задать случайным образом одномерный массив размерности N из целочисленных элементов, принадлежащих...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru