Задание 6 Урок 15. Одномерные массивы
Primary tabs
{15 - 6 Пользователь вводит целые числа в цикле. Запишите в массив целых чисел (из 3 элементов)
все нечетные отрицательные. Как только массив будет заполнен,
завершите цикл ввода новых значений пользователем и распечатайте полученный массив. }
var a: array [1..3] of integer; i,x: integer; begin i:=1; repeat writeln('write your num'); read(x); if (x < 0) and (x mod 2 = 0) then //нечетные отрицательные. begin a[i]:=x; i:=i+1; end; until(i=4); writeln('here is array of yours: '); for i:=1 to high(a) do write(a[i], ' '); readln(); readln(); end.
//write your num //1 //write your num //-1 //write your num //-2 //write your num //-4 //write your num //-8 //here is array of yours: //-2 -4 -8
- Log in to post comments
- 1194 reads
vedro-compota
Thu, 05/27/2021 - 20:10
Permalink
until(i=4);
- лучше считать до трех, остальное нормально.
_____________
матфак вгу и остальная классика =)