Составить программу, которая формирует массив из 7 случайных целых чисел, принадлежащих промежутку [-14;9], и вычисляет произведение нечетных чисел.

@Anko · Регистрация: 20.09.2014

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

@Петррр · 18.04.2012, 10:13

Pascal

program prog1;
uses
    crt;
const
     size = 7;
var
   a: array[1..size] of integer;
   i: integer;
   prod: integer;
begin
     clrscr;
     randomize;
     prod := 1;
     for i := 1 to size do
     begin
          a[i] := random(24) - 14;
          write(a[i], ' ');
          if (odd(a[i])) then
             prod := prod * a[i];
     end;
     writeln(#10#13'sum: ', prod);
     readkey;
end.

@Anko 0 / 0 / 0 Регистрация: 20.09.2014 Сообщений: 9
		1
	Составить программу, которая формирует массив из 7 случайных целых чисел, принадлежащих промежутку [-14;9], и вычисляет произведение нечетных чисел. 18.04.2012, 09:05. Показов 11680. Ответов 1 Метки нет (Все метки) Составить программу, которая формирует массив из 7 случайных целых чисел, принадлежащих промежутку [-14;9], и вычисляет произведение нечетных чисел. 0

	18.04.2012, 10:13

Опции темы

Составить программу, которая формирует массив из 7 случайных целых чисел, принадлежащих промежутку [-14;9], и вычисляет произведение нечетных чисел.

Решение