Заполнить массив а[1..10] случайными целыми числами в диапазоне от 1 до 10 .

@Ильич2208 · Регистрация: 07.11.2018

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

Составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет произведение элементов массива с нечётными значениями

@Puporev · 08.11.2018, 13:22

Pascal

const n=10;
var a:array[1..n] of byte;
     i:byte;
     p:integer;
begin
rabdomize;
p:=1;
for i:=1 to 10 do
 begin
  a[i]:=1+random(10);
  write(a[i]:3);
  if odd(i) then p:=p*a[i];
 end;
writeln;
write('P=',p);
end.

@Nestor87 · 08.11.2018, 16:35

Puporev,

@Ильич2208 0 / 0 / 0 Регистрация: 07.11.2018 Сообщений: 8
		1
	Заполнить массив а[1..10] случайными целыми числами в диапазоне от 1 до 10 . 08.11.2018, 12:55. Показов 27529. Ответов 2 Метки программа (Все метки) Составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет произведение элементов массива с нечётными значениями 0

@Nestor87 0 / 0 / 0 Регистрация: 02.09.2018 Сообщений: 12
	08.11.2018, 16:35	3
	Puporev, 0

Опции темы