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

@TheAragorn · Регистрация: 13.11.2012

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

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

@PotatoLove · 15.11.2012, 18:34

Pascal

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.

@TheAragorn 1 / 1 / 1 Регистрация: 13.11.2012 Сообщений: 49
		1
	Задать случайным образом одномерный массив из 18 целочисленных элементов, принадлежащих отрезку [-14;14]. Найти сумму элементов массива, кратных пяти. 15.11.2012, 16:57. Показов 7573. Ответов 1 Метки нет (Все метки) Помогите пожалуйста написать прогу в паскале: задать случайным образом одномерный массив из 18 целочисленных элементов, принадлежащих отрезку [-14;14]. Найти сумму элементов массива, кратных пяти. Закрасить указанные элементы. 0

	15.11.2012, 18:34

Опции темы

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

Решение