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