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

Question

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

Answer 1

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.

Используем рандом для заполнения массива

Comments

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

---

да так же

---

Если попроще вариант, поставить вместо n 10

---

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

---

Спасибо