Выполнить в паскале
5-9 класс
|
1. Массив из 10 целых чисел задан случайным образом в диапазоне от -65 до -45. Вывести на экран элементы, которые имеют четные номера.
program gt;
var a:array[1..10]of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(21)-65;
if(i mod 2=0)then write(a[i],' ');
end;
end.
Другие вопросы из категории
Читайте также
Массив из 5 вещественных чисел вводится с клавиатуры. Найти среднее арифметическое, min и max элементов массива.
Помогите плииз.
еются ли в записи числа N нечетные цифры. Если имеются, то вывести True, если нет — вывести False. Помогите плииз.
1-й равен случайному трехзначному числу;
2-й равен текущему индексу, увеличенному в 10 раз;
3-й равен сумме двух предыдущих элементов.
(программу надо выполнить в Паскале)
рождения 1 доллар. В каждый следующий день рождения он удваивал свой подарок и прибавлял к нему столько долларов, сколько лет исполнилось его племяннику. Определите, к какому дню рождения сумма превысит 100 долларов? Помогите плииз.