Найти сумму элементов одномерного массива, кратных пяти

@Никифоров Рома · Регистрация: 30.10.2014

Author24 — интернет-сервис помощи студентам

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

@vint-81 · 10.11.2014, 14:01

Pascal

uses crt;
const n=18;k=5;
var a:array[1..n] of integer;
    i,s:integer;
begin
 randomize;
 s:=0;
 for i:=1 to n do
  begin
   a[i]:=-14+random(29);
   if (a[i]<>0)and(a[i] mod k = 0)
    then
     begin
      s:=s+a[i];
      textcolor(red);
     end;
   write(a[i],' ');
   textcolor(white);
  end;
 writeln;
 writeln('s=',s)
end.

@Никифоров Рома 0 / 0 / 0 Регистрация: 30.10.2014 Сообщений: 8
		1
	Найти сумму элементов одномерного массива, кратных пяти 10.11.2014, 13:22. Показов 2591. Ответов 1 Метки нет (Все метки) Задать случайным образом одно мерный массив из 18 целочисленных элементов, принадлежащих отрезку [-14;14]. Найти сумму элементов массива , кратных пяти. Закрасить указанные элементы. 0

	10.11.2014, 14:01

Найти сумму элементов одномерного массива, кратных пяти

Решение