Информатика Архивный вопрос

Составьте программу вычисление тех значений элементов массива которые меньше 16

Нет комментариев

Ответы

Гость

Const m=200;
var a: array[1..m] of integer;
    i,n: integer;
begin
   write('количество элементов массива:  ');
   readln(n);
   randomize;
   write('массив:  ');
   for i:=1 to n do
   begin
     a[i]:=random(40);
     write(a[i],' ');
   end;
   writeln;
   write('элементы, меньшие 16:  ');  
   for i:=1 to n do if a[i]<16 then
     write(a[i],' ');
end.

количество элементов массива:  15
массив:  6 22 28 39 24 3 19 15 35 22 2 2 22 1 32 
элементы, меньшие 16:  6 3 15 2 2 1 


Нет комментариев

Похожие вопросы