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

demo

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

Заполнение массива случайными числами и нахождения числа второго десятка

Заполнить массив случайными числами в заданном интервале, вывести его на экран L[1..15] от 10 до 40. Найти числа второго десятка и подсчитать их количества на языке Pascal(Паскаль).

 

var 
L: array[1..15] of integer; 
i, count: integer; 
 
begin 
Randomize; 
for i := 1 to 15 do 
begin 
L[i] := Random(10, 40); 
Write(L[i], ' '); 
end; 
Writeln(#13, 'Числа от 11 до 20'); 
for i := 1 to 15 do 
if (L[i] > 10) and (L[i] < 21) then begin 
Write(L[i], ' '); 
Inc(count); 
end; 
Writeln(#13, 'Количество таких чисел ', count); 
end.

 

Rate this item
(0 votes)
Login to post comments