Урок 15. Задача 6.
Primary tabs
Пользователь вводит целые числа в цикле. Запишите в массив целых чисел (из 3 элементов) все нечетные отрицательные. Как только массив будет заполнен, завершите цикл ввода новых значений пользователем и распечатайте полученный массив.
type ar = array[1..3] of integer; var i, a, b : integer; Arr : ar; begin a := 1; // переменная счетчика b := 0; // переменная ввода while a < 4 do begin write('Enter an integer : '); readln(b); if (b mod 2 = 0) and (b < 0)then begin Arr[a] := b; // инициализация a := a + 1; // счетчик выхода из цикла end; end; for i := low(Arr) to high(Arr) do // вывод массива write(Arr[i], ' '); readln(); end.
- Log in to post comments
- 598 reads
vedro-compota
Fri, 06/10/2022 - 20:04
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)