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