Паскаль.даны три вещественных числа. вывести на экран те их них, которые принадлежат интервалу (1, 6 - 3, 8

Var   a: array[1..3] of real;   i, n: integer; begin   write('введите через пробел три любых числа: ');   readln(a[1], a[2], a[3]);   for i : = 1 to 3 do       if (a[i] > = 1.6) and (a[i] < = 3.8) then writeln(a[i]) end. введите через пробел три любых числа: 13.43 2.41 -1.34 2.41

18 | 36 | 0 | -3 | 4 | 15 | -18 - 1 элемент в массиве с индексом 0 (потому что это первый элемент в массиве). 36 - 2 элемент в массиве с индексом 1 (потому что это второй элемент в массиве). 0 - 3 элемент в массиве с индексом 2 (потому что это третий элемент в массиве). -3 - 4 элемент в массиве с индексом 3 (потому что это четвертый элемент в массиве). 4 - 5 элемент в массиве с индексом 4 (потому что это пятый элемент в массиве). 15 - 6 элемент в массиве с индексом 5 (потому что это шестой элемент в массиве).

1. цикл

var a,k: integer;

begin

write('введите число: ');

readln(a);

while a< > 0 do

begin

if(a mod 2 = 0) and (a mod 10 < > 8) then k: =k+1;

write('введите число: ');

readln(a)

end;

if k > 0 then writeln('в последовательности были чётные числа, не оканчивающиеся на цифру 8.')

else writeln('в последовательности не было чётных чисел, не оканчивающихся на цифру 8.')

end.

2. массив через цикл

var a,k,i: integer;

p: array [1..1000] of integer;

begin

repeat

write('введите число: ');

readln(a);

if a< > 0 then

begin

i: =i+1;

p[i]: =a

end

until a=0;

for a: =1 to i do

if(p[a] mod 2 = 0) and (p[a] mod 10 < > 8) then k: =k+1;

if k > 0 then writeln('в последовательности были чётные числа, не оканчивающиеся на цифру 8.')

else writeln('в последовательности не было чётных чисел, не оканчивающихся на цифру 8.')

end.