• Тема массивы.
    Язык - pascal abc.
    Нужна программа по принципу работы Вводим 10 элементов массива - выводятся нечетные.

Ответы 6

  • А если без рандома, то как?
    • Автор:

      chum
    • 5 лет назад
    • 0
  • да так же
  • Если попроще вариант, поставить вместо n 10
    • Автор:

      ho
    • 5 лет назад
    • 0
  • for i:=1 to n do begin write("Введите элемент: ",i); readln(a[i]); write (a[i],' '); // и сразу выводим end;
  • Спасибо
    • Автор:

      jakobhnb4
    • 5 лет назад
    • 0
  • const n=10;var a:array [1..n] of integer;        i: integer;begin  randomize;   writeln ("Массив из 10 элементов:');   for i:=1 to n do   begin      a[i]:= random(101);       write (a[i],' ');    end;  writeln('Нечетные элементы:');  for i:=1 to n do   if a[i] mod 2<>0 then    write(a[i],' ');end.Используем рандом для заполнения массива
    • Автор:

      pregomrt6
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years