Составьте программу, которая формирует массив из 20 случайных чисел, и выводит на экран вначале исходные, а затем преобразованные элементы массива
5-9 класс
|
таким образом, что производится перестановка 6 и 16 элементов массива
program z1;
var
a:array [1..20] of integer;
b,i:integer;
begin
b:=0;
for i:= 1 to 20 do
a[i]:=random(30)-15;
for i:= 1 to 20 do
write(a[i]);
writeln;
b:=a[6];
a[6]:=a[16];
a[16]:=b;
write(a[i]);
end.
Другие вопросы из категории
ПОЖАЛУУЙСТА ПОМОГИТЕ
-Прибавьте к ним 25.
-К ответу прибавьте ещё 125.
-Из ответа вычтите 36
-Из ответа вычтите эти задуманные числа.
-Ответ умножьте на 5.
-ответ разделите на 2.
ПОжалуйста помогите. Мне срочно надо
Заранее спасибо.
Читайте также
чисел и выводит на экран этот же массив в прямом и обратном порядке. Протестировать алгоритм на произвольных массивах, состоящих из 1 числа, из 5 чисел, из 10 чисел.
2. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с чётными номерами. Протестировать алгоритм на произвольных массивах размерностью 5 и 8 элементов.
3. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с нечётными номерами в обратном порядке. Протестировать алгоритм для следующих исходных данных:
а) 1 3 5 6 8 9
б) -1 4 6 2 4 6 8 6 9
P.S. Убедительная просьба написать решение целиком и до наступления ночи. Я являюсь дилетантом в Паскале, а эти три задачи являются моим домашним заданием по информатике на завтра.
то поменять местами третий и пятый элементы, если третий элемент равен нулю, то увеличить оба эти элементы в 2 раза, иначе третий и пятый элементы сохраняют прежние значения.
увеличивает на 3. На экран выводятся исходные и преобразованные значения