Регистрация
a4m4u4r4
15.08.2020 19:13
Информатика
Есть ответ 👍

Массив C размером 15 заполняется случайными числами из интервала (0,100). Вывести на экран нечётные элементы массива.

299
409
Посмотреть ответы 2

Ответы на вопрос:

Софа1е
Софа1е
4,4(92 оценок)

var i :integer;

   C: array[1..15] of integer;

begin

 write('Массив С: ');

 for i := 1 to 15 do

 begin

   C[i] := random(0, 100);

   write(C[i], ' ');

 end;

 writeln();

 write('Нечётные элементы массива: ');

 for i := 1 to 15 do

 begin

   if C[i] mod 2 <> 0 then write(C[i], ' ');  

 end;  

end.

arinakirkot
arinakirkot
4,8(78 оценок)
Var s,i: integer; begin i: =1; s: =10; while s< =120 do begin s: =s+(10+i*5); i: =i+1; end; writeln('на  ',i,' день'); end.

Популярно: Информатика