Регистрация
zaharovvlad1337
05.05.2020 06:03
Информатика
Есть ответ 👍

Turbopascal дан массив c15 определите количество нечетных чисел составить программу

118
483
Посмотреть ответы 2

Ответы на вопрос:

dimonshegolev
dimonshegolev
4,7(10 оценок)
Const n=15; var c: array[1..n] of integer; k,i: integer; begin randomize; for i: =1 to n do begin   c[i]: =random(51);   write(c[i],' ');   end; writeln; k: =0; for i: =1 to n do   if c[i] mod 2< > 0 then k: =k+1; writeln('k = ',k); end. пример: 34 45 49 29 19 18 20 29 10 13 35 24 48 42 20k = 7
котак5
котак5
4,7(52 оценок)

ответ:

1.   111.1

2.   42.04365605075

3.   16.147ae147ae1

4.   13.52

5.   11.5

6.   35.58

7.   .010101

8.   10.375

9.   13.21875

10.   1010010.00110101

11.   10.24

12.   124.04296875

Популярно: Информатика