Связь с администрацией сайта:       

demo

Среди толпы я одинок

Pascal Поиск нечетных элементов в массиве

         Дан массив Е[1..15], он задан с клавиатуры числами 11,12,13,14,15,16,17,18,19,20. Вывести его на экран и найти нечетные элементы на языке Pascal(Паскаль). 
 
 
var 
e: array[1..10] of integer; 
i: integer; begin //Вывод массива на экран
   for i := 1 to 10 do 
     begin
       e[i]:=i+10;
       write(e[i]:3);
     end;writeln;//Находим нечетные элементы
   for i := 1 to 10 do 
       if e[i] mod 2 <> 0 then write(e[i]:3);
     readln;end.
Rate this item
(0 votes)
Login to post comments