Консультация № 189409
18.05.2016, 16:59
0.00 руб.
0 4 1
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:

написать программу на языке Паскаль:
Найдите количество элементов массива с четными и нечетны-
ми значениями

Обсуждение

давно
Старший Модератор
31795
6196
18.05.2016, 18:02
общий
это ответ
Здравствуйте, amelya.kuro!

Смотрите приложение:
[code lang=pascal h=200]const
n=20;
var
c,d,e:integer;
z:array[1..n]of integer;
begin
for c:=1 to n do
begin
z[c]:=25-random(50);{создаем элемент}
if odd(z[c])then inc(d) else inc(e);{считаем чет/нечет}
write(z[c]:4);{выводим элемент}
end;
writeln;
writeln('even:',d:5);{четные}
writeln('odd :',e:5);{нечетные}
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Неизвестный
28.05.2016, 18:51
общий
if odd(z[c])then inc(d) else inc(e);{считаем чет/нечет} можно в этой строке обойтись с помощью mod?
давно
Старший Модератор
31795
6196
30.05.2016, 08:55
общий
можно odd(z[x]) = (z[x]mod 2)=1
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Неизвестный
30.05.2016, 12:50
общий
спасибо
Форма ответа