Question

Задание на паскале. Дан целочисленный массив размера 10.Вывести все содержащиеся в данном массиве четные двузначные числа.

Answer 1

Ответ:

Объяснение:

const

 a : array [1..10] of Integer = (2, 33, 66,45,34,23,65,100,234,38);

Var

 i: integer;

begin

 for i := 1 to 10 do

   if (a[i] mod 2 = 0) and (a[i]>9) and (a[i] < 100) then

    writeln(Format('%d', [a[i]]));

end;

Answer 2

Вот пример программы на Pascal, которая выводит все четные двузначные числа из целочисленного массива размера 10:

pascalCopy code
program EvenTwoDigitNumbers;

var
  numbers: array[1..10] of integer;
  i: integer;

begin
  writeln('Введите 10 целых чисел:');
  for i := 1 to 10 do
  begin
    write('Введите число ', i, ': ');
    readln(numbers[i]);
  end;

  writeln('Четные двузначные числа в массиве:');

  for i := 1 to 10 do
  begin
    if (numbers[i] >= 10) and (numbers[i] <= 99) and (numbers[i] mod 2 = 0) then
      writeln(numbers[i]);
  end;

  readln;
end.

Программа сначала запрашивает 10 целых чисел от пользователя и сохраняет их в массив numbers. Затем она проходит по массиву и выводит все четные двузначные числа.