Найти элементы массива, принадлежащие заданному диапазону чисел - Turbo Pascal

Формулировка задачи:

Составить постановку, алгоритм и в PASCALе программу поиска лежащих в пределах от 1976 до 2045 элементов массива Y из 12 чисел. Значения элементов указать с клавиатуры, помогите, это срочно! Приложу то, что я написал, но где-то ошибка, помогите
program example;
 
uses crt; 
 
var 
i: array[1..12] of real;
s: real;
y: integer;
 
begin 
 clrscr;
 writeln('Vvedite elementi massiva');
 for y:=1 to 12 do 
  begin 
   i[y]:= y+sin(y)/cos(y);
   write(i[y]:s:2,'');
   readln;
   writeln;
  end;
    
   s:=0;
   for y:=2 to 11 do 
   if(i[y]>1976) and (i[y]>2045) then 
   s:=s+i[y];
  writeln('summa=',s:6:2);
  readln
 end.

Код к задаче: «Найти элементы массива, принадлежащие заданному диапазону чисел - Turbo Pascal»

textual
const n=12;
var y:array[1..n] of integer;
    i,k:integer;
begin
writeln('Введите ',n,' натуральных чисел, в том числе числа из диапазона [1976..2045]');
for i:=1 to n do
readln(y[i]);
writeln('Числа  из диапазона [1976..2045]');
k:=0;
for i:=1 to n do
if (y[i]>=1976)and(y[i]<=2045)then
 begin
  k:=1;
  write(y[i],' ');
 end;
if k=0 then write('Таких чисел нет');
end.

7   голосов, оценка 4.143 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы