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

@светиклапа · Регистрация: 13.12.2013

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

Новичок · 13.12.2013, 23:16

Pascal

var a:array[1..10]of Integer;
i,k:Integer;
p:LongInt;
begin
p:=1;
k:=0;
Writeln('Сгенерированный массив:');
Randomize;
for i:=1 to 10 do
begin
a[i]:=Random(10)+1;
if a[i] mod 2=1 then p:=p*a[i] else k:=k+1;
Write(a[i],' ');
end;
Writeln;
Writeln('Произведение нечетных:',p);
Writeln('Количество четных:',k);
Readln;
end.

Добавлено через 1 минуту

Не по теме:

Как запостить тему, чтобы не получить ответ
Читайте полностью если хотите чтобы вам в дальнейшем помогли...

@светиклапа · 13.12.2013, 23:22 **[ТС]**

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

@Svager · 14.12.2013, 00:09

Pascal

uses crt;
const n=10 ;
var a:array[1..n] of integer;
i:integer;
BEGIN
clrscr;
 for i:=1 to n do
  a[i]:=random(10);
 
   for i:=1 to n do
    write(a[i]:4);
 
    writeln;
 
    for i:=1 to n do
     if i mod 2=0 then
      a[i]:=-a[i];
 
      for i:=1 to n do
       write(a[i]:4) ;
readkey;
END.

@светиклапа 0 / 0 / 0 Регистрация: 13.12.2013 Сообщений: 3
		1
	Составить программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10 13.12.2013, 23:02. Показов 26679. Ответов 3 Метки нет (Все метки) составить программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10, затем найти произведение элементов с нечетными значениями и количество элементов с четными значениями 0

@светиклапа 0 / 0 / 0 Регистрация: 13.12.2013 Сообщений: 3
	13.12.2013, 23:22 [ТС]	3
	составить программу которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10, затем изменяет знак элементов с четными индексами на противоположный 0

Опции темы