Дан массив из 20 элементов, заполненный случайными числами в диапазоне от – 10 до +10. Поменять местами элементы, стоящие на четных и нечетных местах и
5-9 класс
|
вывести на экран.
var
a: array [1..20] of integer;
i: byte;
p: integer;
begin
Randomize;
write('Исходный массив:');
for i:=1 to 20 do
begin
a[i] := Random(21)-10;
write(a[i]:4);
end;
writeln;
write('Массив-результат:');
i:=1;
while i<20 do
begin
p:=a[i]; a[i]:=a[i+1]; a[i+1]:=p;
i:=i+2;
end;
for i:=1 to 20 do write(a[i]:4);
end.
Другие вопросы из категории
следующий сообщение:
а)жуцёг льл, г ргмжиыя - дзузёл;
б)фхгуюм жуцё оцъыз рсеюш жецш.
Читайте также
Программа задумывает случайное число в диапазоне от 0 до 99. После каждой попытки играющего прога выводит сообщение "больше", "меньше", "угадано". Дается 10 попыток. Программа завершается, если дан правильный ответ или попытки закончились.
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.
и количество элементов с нечетными значениями.
б) Составьте программу, которая заполняет массив b[1..8] случайными целыми числами в диапазоне от 1 до 10 и находит произведение элементов с нечетными значениями и количество элементов с четными значениями.
элементов с нечётными индексами
2)составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 0 до 10,находит максимальный элемент массива,а затем вычисляет,сколько раз он встречается в массиве
значениями. №2 Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 до 10 и вычисляет среднее арифметическое элементов массива. №3 Такое же как и №2, только ...элементов массива с четными значениями.