Задание 6 Урок 15

Primary tabs

Submitted by Dobrii_kot on Thu, 12/17/2020 - 19:17

Forums:

Задание 6 Урок 15

Пользователь вводит целые числа в цикле. Запишите в массив целых чисел (из 3 элементов) все нечетные отрицательные. Как только массив будет заполнен, завершите цикл ввода новых значений пользователем и распечатайте полученный массив.

 var number_user, counter_array : integer;
    negative_arrya: array[1..3] of integer;
begin
  counter_array := 0;
  repeat
    write('Введите целое число и нажмите ENTER: ');
    readln(number_user);
    if number_user < 0 then
      begin
       counter_array += 1;
       negative_arrya[counter_array] := number_user;
      end;
  until counter_array >= 3;
  for counter_array := low(negative_arrya) to high(negative_arrya) do
    writeln('Элемент №', counter_array,' ', negative_arrya[counter_array]);
  readln();
end.
  • Log in to post comments
  • 2053 reads
vedro-compota's picture

vedro-compota

Thu, 12/17/2020 - 19:53

добавьте проверку на нечетность

_____________
матфак вгу и остальная классика =)

Dobrii_kot

Sun, 12/20/2020 - 14:25

Исправлено

var number_user, counter_array : integer;
    negative_arrya: array[1..3] of integer;
begin
  counter_array := 0;
  repeat
    write('Введите целое число и нажмите ENTER: ');
    readln(number_user);
    if (number_user < 0) and ((number_user mod 2) <> 0)  then
      begin
       counter_array += 1;
       negative_arrya[counter_array] := number_user;
      end;
  until counter_array >= 3;
  for counter_array := low(negative_arrya) to high(negative_arrya) do
    writeln('Элемент №', counter_array,' ', negative_arrya[counter_array]);
  readln();
end.

консоль:

Введите целое число и нажмите ENTER: 12
Введите целое число и нажмите ENTER: -4
Введите целое число и нажмите ENTER: 13
Введите целое число и нажмите ENTER: -3
Введите целое число и нажмите ENTER: -1
Введите целое число и нажмите ENTER: -20
Введите целое число и нажмите ENTER: 35
Введите целое число и нажмите ENTER: -45
Элемент №1 -3
Элемент №2 -1
Элемент №3 -45
vedro-compota's picture

vedro-compota

Sun, 12/20/2020 - 16:40

решение засчитано

_____________
матфак вгу и остальная классика =)