Урок 15 Задача 7
Primary tabs
Пользователь вводит целые числа в цикле. Запишите в массив целых чисел (из 3 элементов) все нечетные отрицательные. Как только массив будет заполнен, завершите цикл ввода новых значений пользователем и распечатайте полученный массив.
var m : array [1..3] of integer; a, i: integer; begin i :=low(m); // начальное значение счетчика цикла while (i <= high(m)) do // обойдем массив через while begin write('Введите число: '); readln(a); // считываем введенное число if (a mod 2 = -1) then // проверяем на отрицательность и нечетность begin m[i]:=a; // если условие верно, присваиваем значение очередному эл-ту массива i := i+1; // увеличиваем счетчик цикла на 1 end; end; write ('Ответ: '); for i:=low(m) to high(m) do // обходим массив для вывода его значений write (m[i], ' '); readln(); end.
Вывод в консоли:
Введите число: 5 Введите число: -1 Введите число: -4 Введите число: -3 Введите число: -7 Ответ: -1 -3 -7
- Log in to post comments
- 379 reads
vedro-compota
Sat, 11/19/2022 - 17:28
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)