Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 20 и выводит на экран элементы, значения
10-11 класс
|
которых больше 5 и меньше 15
var
a:array [1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(20)+1;
write (a[i],' ');
end;
writeln;
for i:=1 to 10 do
if (a[i]>5) and (a[i]<15) then write (a[i],' ');
readln;
end.
Другие вопросы из категории
цепочек создается такими действиями: в очередную строку сначала записывается буква, чей порядковый номер в алфавите со-ответствует номеру строки , к ней справа дважды подряд приписывается предыдущая строка. Вот первые 4 строки, созданные по этому правилу: (1) A (2) BAA (3) CBAABAA (4) DCBAABAACBAABAA Латинский алфавит (для справки): ABCDEFGHIJKLMNOPQRSTUVWXYZ Запишите четыре символа подряд, стоящие в седьмой строке со 120-го по 123-е место (считая слева направо).
x. Где х изменяется от -0,5 до 0,5 с шагом 0,1, а y=х4+0,5.
Читайте также
нечетными значениями
и количество элементов с нечетными значениями.
Задача 1. Составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10, затем меняет местами первый и последний элементы.
на противоположный.
выведите на экран исходный и полученный массивы
очень прошу
и произведение элементов с нечетными значениями