Прошу, проверьте задачу, очень срочно нужно.

Imm0rtal · 23.12.2009, 19:00

Написать программу, которая подсчитывает количество нечетных элементов массива, заданного датчиком случайных чисел. Количество элементов в массиве [1..30],диапазон значений (20..100).
var
a:array[20..100] of integer;
i,n,p:integer;
Begin
write('bb n');readln(n);
P:=1;
For i:=20 to 100 begin
a[i]:=random(31)-1;
writeln (a[i]);
if i mod 2<>0 then P:=P*a[i];
end;
writeln('Произведение элементов с нечетными номерами:',P);
readln;
END.

MakOS · 23.12.2009, 19:51

var
a:array[1..30] of integer;
i,n,p:integer;
Begin
n:=0;
P:=1;
For i:=1 to 30 begin
a[i]:=21+random(78);
writeln (a[i]);
if i mod 2<>0 then n:=n+1; P:=P*a[i];
end;
writeln(' количество нечетных элементов: ',n);
writeln('Произведение элементов с нечетными номерами:',P); <-если нужно произведение то оставь а если только количество то убери
readln;
END.

вроде так

Vladimir_S · 23.12.2009, 21:45

Цитата:

Сообщение от MakOS

var
a:array[1..30] of integer;
i,n,p:integer;
Begin
n:=0;
P:=1;
For i:=1 to 30 begin
a[i]:=21+random(78);
writeln (a[i]);
if i mod 2<>0 then n:=n+1; P:=P*a[i];
end;
writeln(' количество нечетных элементов: ',n);
writeln('Произведение элементов с нечетными номерами:',P); <-если нужно произведение то оставь а если только количество то убери
readln;
END.

вроде так

Не совсем так. Есть ошибки. И, увы, немало. "Так" будет так:

Код:

var
 a:array[1..30] of integer;
 i,j,n:integer;
 P:Extended;
Begin
 Randomize;
 n:=0;
 P:=1;
 For i:=1 to 30 do 
   a[i]:=20+random(81);
 For i:=0 to 2 do
   begin
     For j:= 1 to 10 do write (a[i*10+j]:4);
     writeln;
   end;
 For i:=1 to 30 do
  if i mod 2>0 then 
   begin
    n:=n+1; 
    P:=P*a[i];
   end;
 writeln(' количество нечетных элементов: ',n);
 writeln('Произведение элементов с нечетными номерами:',P);
 readln;
END.

Если верить условию, что ДЕЙСТВИТЕЛЬНО необходимо найти произведение всех членов массива с нечетными номерами, то число это столь велико, что даже формат LongInt не спасает, и приходится переходить на Extended. Впрочем, подозреваю, что поиск произведения - самодеятельность, поскольку в условии задачи об этом ничего нет.

AlexZir · 24.12.2009, 08:31

Действительно, зачем вам искать произведение? Это ведь не задано в условии задачи!

23.12.2009, 19:00	#1 (permalink)
Imm0rtal Новичок Регистрация: 23.12.2009 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Прошу, проверьте задачу, очень срочно нужно. Написать программу, которая подсчитывает количество нечетных элементов массива, заданного датчиком случайных чисел. Количество элементов в массиве [1..30],диапазон значений (20..100). var a:array[20..100] of integer; i,n,p:integer; Begin write('bb n');readln(n); P:=1; For i:=20 to 100 begin a[i]:=random(31)-1; writeln (a[i]); if i mod 2<>0 then P:=P*a[i]; end; writeln('Произведение элементов с нечетными номерами:',P); readln; END.

24.12.2009, 08:31	#4 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Действительно, зачем вам искать произведение? Это ведь не задано в условии задачи! __________________ Убить всех человеков!

23.12.2009, 19:00
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Чтобы не тратить время на поиски, отправлю вам сразу похожие обсуждения Разведите печатку - очень прошу! Помогите с задачей на С++ очень срочно нужно...пожалуйста

23.12.2009, 19:51	#2 (permalink)
MakOS Новичок Регистрация: 07.05.2009 Сообщений: 9 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 34	var a:array[1..30] of integer; i,n,p:integer; Begin n:=0; P:=1; For i:=1 to 30 begin a[i]:=21+random(78); writeln (a[i]); if i mod 2<>0 then n:=n+1; P:=P*a[i]; end; writeln(' количество нечетных элементов: ',n); writeln('Произведение элементов с нечетными номерами:',P); <-если нужно произведение то оставь а если только количество то убери readln; END. вроде так

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070