СРОЧНО!!!!!Дам 20 баллов!!!!Составить программу ввода с клавиатурой целых чисел от 1 до...

Question

СРОЧНО!!!!!Дам 20 баллов!!!!Составить программу ввода с клавиатурой целых чисел от 1 до 10 и вывода на экран элементов массива с нечетными значениями

Answer 1

Var
a:array[1..10]of integer;
i:integer;
Begin
For i:= 1 to 10 do
  begin
    Read(a[i]);
    if a[i] mod 2 <>0 then Write(a[i], ' ');
  end;
end.

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

//Более современное решение
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!


Begin
var a:= ReadlnString('Введите массив').ToIntegers;
SetLength(a, 10);
a.Where(t->t.isOdd).Println;
end.

Answer 2

Program pr_1;var e: array [1..10] of integer;    i: integer;beginfor i := 1 to 10 do    e[i] := random(1, 10);for i:= 1 to 10 do    if e[i] mod 2 <> 0 then writeln(e[i]);end.

Comments

program pr_1;

---

var e: array [1..10] of integer;

---

i: integer;

---

begin

---

for i := 1 to 10 do

---

e[i] := random(1, 10);

---

for i:= 1 to 10 do

---

if e[i] mod 2 <> 0 then writeln(e[i]);

---

end.