напишите программку, которая наполняет массив случайными числами на отрезке [2;10] и

Question

напишите программку, которая наполняет массив случайными числами на отрезке [2;10] и

Напишите программку, которая заполняет массив случайными числами на отрезке [2;10] и считает отдельно количество четных и нечетных частей.
pascal abc
очень прошу

Задать свой вопрос

Максим Питровичев 2019-02-28 17:01:31

На pascal abc.net будет?

Austra Konstantin 2019-02-28 17:07:39

не знаю

Понятовск Борис 2019-02-28 17:11:12

begin var a:=ArrRandom(ReadInteger('n='),2,10); a.Println; Println('Нечетных',a.Where(t->t.IsOdd).Count); Println('Четных',a.Where(t->t.Iseven).Count);end.

Алиса Бащенко 2019-02-28 17:18:11

PascalABC.Net 3.3

Ирина Почикан 2019-02-28 17:22:13

Пример:

Бобринев Даниил 2019-02-28 17:27:04

n= 102 6 4 3 6 9 5 5 8 2Нечетных 4 Четных 6

Толя Костелов 2019-02-28 17:28:00

Просто была готова, вот и спросил

Карина Пайс
Информатика
2019-02-28 16:54:01
1
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

С решением пожалуйста.

Помогите write the sentences in the past simple tense

Отыскать площадь фигуры, ограниченной графиками функций:

Найдите в художественной литературе несколько (3-5)славянских имён. Узнайте что они значат

пожалуйста помогите с историей я не могу додуматься кто это безотлагательно!

16,88 округлите до 10-х!!!!!!

решите плиизраспишите как вы решали

Пожалуйста помогите 12 задание

приведите подобные слагаемые аquot;2+2а+2quot;2+2аquot;-ступень

назовите основной орган дыхательной системы

Степан Наумович · Answer 1 · 2019-02-28 17:02:31+3:00

Const n=10;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(9)+2;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln('Четных: ',k,' нечётных: ',n-k);
end.

Пример:
2 2 4 7 9 10 9 4 5 4
Четных: 6 нечётных: 4

О проекте

напишите программку, которая наполняет массив случайными числами на отрезке [2;10] и

Добро пожаловать!