составте программу,которая наполняет массив b[1..8] случайными целыми числами в диапазоне от

Составте программку,которая наполняет массив b[1..8] случайными целыми числами в спектре от 1 до 10 и находит количество элементов с нечетными значениями

Задать свой вопрос
1 ответ
//Pascal
var
  b: array[1..8] of integer;
  i, z: integer;
begin
randomize;
for i := 1 to 8 do
begin
  b[i] := random(9)+1;
  write(b[i],' ');
  if b[i] mod 2 lt;gt; 0 then z := z + 1;
end;
writeln;
writeln('Количество нечетных = ', z);
readln;
end.
, оставишь ответ?
Имя:*
E-Mail:


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

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт