Найти сумму элементов массива, которые кратны трем

@Skrepi · Регистрация: 18.06.2014

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

@Don_Omare · 18.06.2014, 20:35

Pascal

uses
  crt;
 
var
  X: array[1..18] of integer;
  i, sum: integer;
 
begin
 sum:=0;
  for i := 1 to 18 do
  begin
    x[i] := Random(19) - Random(19);
    if (x[i] mod 3 = 0) and ( x[i] <> 0) then
     Begin
     Textcolor(12);
     sum:=sum+x[i];
     End else
     Textcolor(15);
    write(x[i] + ' ');
  end;
     writeln();
     Textcolor(15);
  writeln('summa kratnix 3:  ', sum);
  readln;
end.

@Skrepi 1 / 1 / 0 Регистрация: 18.06.2014 Сообщений: 9
		1
	Найти сумму элементов массива, которые кратны трем 18.06.2014, 19:45. Показов 1658. Ответов 1 Метки нет (Все метки) Задать случайным образом одномерный массив из 18 целочисленных элементов, принадлежащих отрезку [-19;19]. Найти сумму элементов массива, которые кратны трем. Закрасить указанные элементы. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 1

Опции темы

Найти сумму элементов массива, которые кратны трем

Решение