Задача 6 Урок 15
Primary tabs
Пользователь вводит целые числа в цикле. Запишите в массив целых чисел (из 3 элементов) все нечетные отрицательные. Как только массив будет заполнен, завершите цикл ввода новых значений пользователем и распечатайте полученный массив.
var a : array [1..3] of integer; i, b, k, c : integer; begin i := 1; while(i < 4) do begin writeln ('vvedi celoe chislo'); readln(c); if(((c mod 2) <> 0) and (c < 0)) then begin a[i] := c; i := i + 1; end; end; for i := low(a) to high(a) do writeln(a[i]); readln(); end.
- Log in to post comments
- 1264 reads
vedro-compota
Sun, 08/08/2021 - 13:07
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)