Помогите,пожалуйста. Надобно написать программу в паскале.
5-9 класс
|
Заполнить массив случайными числами в интервале от -10 до 10 и выполнить инверсию отдельно для 1 и 2 части.
Пример:
1 -2 6 -8 -3 | 5 -7 1 0 -4
-3 -8 6 -2 1 | -4 0 1 -7 5
program xax;
var i:shortint;
a,b: array [-10..10] of byte;
begin
randomize;
for i:=-10 to 10 do
begin
a[i]:=random(100);
write(a[i],' ');
end;
writeln;
for i:=-10 to -1 do
b[i]:=a[-11-i];
for i:=1 to 10 do
b[i]:=a[11-i];
b[0]:=a[0];
for i:=-10 to 10 do
write(b[i],' ');
end.
Другие вопросы из категории
For i:=l to 10 do read (M[i])
А) пересчет массива от 1 до 10
В)Заполнение массива
С)Ввод в массив десяти имен переменных
D) сортировка элементов массива
коричневый, черный. Какой объем видеопамяти будет выделен для кодировки каждого
пикселя и хранения графического изображения 640х400 пикселей?
Читайте также
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
1. Написать программу нахождения произведения n чисел.
Написать программу в паскале. Цикл "пока".
Одноклеточная амёба каждые 3 часа делится на 2 клетки. Определить через сколько часов будет X амёб. X - вводится с клавиатуры.
Ребят, помогите пожалуйста.
Нужно написать программу (или программы) для вычисления суммы, произведения и среднего арифметического для трех чисел.