TurboPascal дан массив c15 определите количество нечетных чисел составить программу. Created by gamgaval01Temka228. informatika-ru

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

gamgaval01Temka228 @gamgaval01Temka228

September 2021 1 4 Report

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

Answers & Comments

petyaGavrikov

Verified answer

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 20
k = 7

0 votes Thanks 0

Answers & Comments

Verified answer

rasskazhite vse pro grafik gde vozrastaet ubyvaet i vse chto znaete

sin^2x-2sin x*cos-3cos^2x=0...

c log a b log a c na kazhduyu formulu 5 primerov zaranee spasibo

x60 reshite pozhalujsta

osushestvit sleduyushie prevrasheniya pca3p2ph3p2o5k3po4ag3po4 123 razobr

pomogite ut3t22t s1c 4c

1 2x27x0 pomogite pozhalujsta

odno yabloko stoit 3 r apelsin 5 r banan 7 r vy kupili 42 frukta za 216 r

zadanie tablicu 1 najti chto v xyn pozhalujsta 9primerov dolzhno byt

рекомендуемые вопросы

Helpful Links

Helpful Social