Автоматически задаётся массив из 15 элементов. Переставить их в обратном порядке. Паскаль!
5-9 класс
|
var
a : array [1..15] of real;
i : integer;
c : real;
begin
randomize;
for i := 1 to 15 do
begin
a[i] := random (100);
write (a[i], ' ');
end;
writeln;
for i := 1 to 7 do
begin
c := a[i];
a[i] := a[15 - i + 1];
a[15 - i + 1] := c;
end;
for i := 1 to 15 do
write (a[i], ' ');
readln;
end.
Другие вопросы из категории
нам задали написать программу которая изображает палитру цветов.
Читайте также
1-й равен значению текущего индекса, увеличенному на 3; 2-й равен квадрату предыдущего индекса; 3-й равен сумме двух предыдущих элементов. 2 Задание : сформируйте массив, содержащий 15 элементов ,с помощью датчику случайных чисел. Получите новый массив,каждый элемент которого равен сумме соответствующего элемента исходного массива и его индекса. В полученном массиве удвойте элементы,которые меньше заданного с клавиатуры числа А,и найдите их сумму . Выведите на экран исходные и полученные результаты .
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
подсчитать кол-во пятерок , четверок, тоек полученных за контрольную работу, если число учеников равно 8
3)Дан одномерный числовой массив,изменить знак элементов массива К[1;12] на противоположный
элемента исходного массива, в полученном массиве вывести элементы стоящие на нечетных местах. Напишите, пожалуйста программу на языке Pascal