задача 6 урок 15
Primary tabs
Пользователь вводит целые числа в цикле. Запишите в массив целых чисел (из 3 элементов) все нечетные отрицательные. Как только массив будет заполнен, завершите цикл ввода новых значений пользователем и распечатайте полученный массив.
program task_6_lesson_15; var a: array[1..3] of integer; i, n : integer; begin i := 1; while i <= 3 do begin readln(n); if ((n mod 2) < 0) then begin a[i] := n; i += 1; end; end; for i := low(a) to high(a) do write(a[i], ' '); readln end.
- Log in to post comments
- 769 reads