Даны натуральные числа n, a1, a2, … ,an. Определить количество ak последовательности a1,a2,…,an являющихся нечётными числами(СДЕЛАТЬ В ПАСКАЛЬ АВС)

Ответы

Ответ дал: gfhjkmgfhjkm20

Ответ:

program p1;

var n,i,a,ak:integer;

begin

ak:=0;

write ('n = ');

readln (n);

for i:=1 to n do

begin

write ('a',i,' = ');

readln (a);

if a mod 2 <> 0 then ak:=ak+1

end;

write('ak = ',ak)

end.

Oleg0030: и потом делить на 2

gfhjkmgfhjkm20: Когда ты вводить n, то есть число после надписи n = , ты указываешь сколько чисел а ты будешь вводить.

gfhjkmgfhjkm20: Так нужен массив и числа вводить не с клавиатуры, а через функцию random?

Oleg0030: а как вводить чре комнду рандом?

gfhjkmgfhjkm20: В той программе, что у меня можно заменить строку 10 - readln(a) можно заменить настроки a:=random (10);
writeln (a); и тогда, числа а будут выбираться рандомно из промежутка от 0 до 9.

gfhjkmgfhjkm20: на строки

Oleg0030: спасибо большое,не мог бы ты обьяснить как рассказать мне это преподу

gfhjkmgfhjkm20: Так тебе надо программу через цикл или массив? И как надо вводить значения а через клавиатуру или рандом?

Oleg0030: Ладно,спасибо,там уже разберусь..что мне сделать чтобы баллы тебе зачислились,5 звезд поставить?

Oleg0030: Очень помог

Вас заинтересует

Английский язык

1 год назад

2 Complete the sentences with suitable words. & Philip Pullman and Laura Gallego are my favourite at the moment. 2 I'll come with you, just let me finish this. first. 3 This is a very long

Информатика

1 год назад

Рассмотрите программный код. Укажите тело цикла. N=int(input() S=0 For I in range(0,n): T=int(input()) If%==0: S+=1 Print(s)