Другие языки программирования и технологии

Помогите написать программу в Паскале, пожалуйста. см ниже

Дан массив а (10). а принадлежит промежутку [0; 20]. вывести его на экран. затем сдвинуть массив на 1 ячейку влево. и снова вывести на экран
Roost Qwerty
Roost Qwerty
582
Доброго времени суток! например вот так можно сделать:
var a: array[1..10] of real;
i: integer;
buf: real;
begin
randomize;
for i:=1 to 10 do
begin
a:=random(20);
write(a:4:2,' ');
end;
buf:=a[1];
for i:=1 to 9 do
a:=a[i+1];
a[10]:=buf;
writeln;
for i:=1 to 10 do
write(a:4:2,' ');
readln;
end.

массив заполняется рандомно.
АР
Александр Рыжов
1 006
Лучший ответ
Roost Qwerty спасибо огромное!
Лабораторная работа
«Текстовые файлы»
Вариант 18
1. Создать текстовый файл, состоящий из нескольких строк любым возможным способом (в DOS, NC или в Pascal).
2. Все встретившиеся «+» и «-» удалить из файла.
3. Дописать преобразованный файл вначале первой строкой исходного файла, затем последней строкой преобразованного файла.
Осуществить просмотр содержимого вначале созданного файла, затем преобразованного файла.

Лабораторная работа
«Множества»
Вариант 18
Пусть А и В – множества, базовый тип которых интервал 0...50. Множество А – подинтервал базового типа с произвольно заданными границами, В – множество, образованное по числу вводов N из произвольных элементов. Подсчитать среднее арифметическое всех четных элементов двух множеств, затем число нечетных элементов множества А. Осуществить просмотр содержимого множеств, затем искомых результатов.

Лабораторная работа
«ЗАПИСИ»
Вариант 18
Создать список клиентов банка.
1.Описать и ввести массив, содержащий 10 записей следующей структуры: фамилия (отдельно ФИО) , адрес, возраст, № счета, счет (руб.) .
2.Вывести массив в табличном виде.
3.Вывести списки клиентов, фамилия которых начинается на заданную с терминала букву.
4. Найти средний возраст клиентов (всех из запроса и всех вообще) .

ВАРИАНТ № 18
«ОБРАБОТКА ДВУМЕРНЫХ МАССИВОВ»

1. В двумерном массиве Е (9,2) найти максимальный элемент первой строки и максимальный элемент второй строки и поменять их местами.
2. В матрице К (3,3) найти сумму элементов верхней треугольной матрицы и наибольший элемент главной диагонали.
3. Записать в дополнительный столбец матрицы У (5,4) разность между первым и вторым элементами каждой строки матрицы.
***В каждой программе обеспечить вывод исходных и полученных массивов в корректном виде.

Лабораторная работа
«ОБРАБОТА ДАННЫХ
СТРОКОВОГО ТИПА»
Вариант 18
1.Ввести строку А : string с клавиатуры. Заменить все встретившиеся буквы «о» на «оо» . Вывести текст до и после изменения.
2. Записать все слова строки Т в одномерный массив. Подсчитать количество слов, количество букв в которых четно. Вывести слова строки в алфавитном порядке.

Лабораторная работа
“ ЛИНЕЙНЫЕ и РАЗВЕТВЛЯЮЩИЕСЯ АЛГОРИТМЫ”
Вариант №18
1. По введенному с клавиатуры целому числу в пределах от десяти до двадцати вывести соответствующее число в формате римских чисел.
2. Вывести на экран все числа, кратные семи на промежутке от 0 до ста.

Лабораторная работа № 3
ОБРАБОТКА ОДНОМЕРНЫХ МАССИВОВ
ВАРИАНТ № 18
1. В массиве М (45) поменять последний максимальный и последний элемент.
2. В матрице К (44) найти сумму S= К (1)*К (44)+ К (2)*К (43)+… элементов.
***В каждой программе обеспечить вывод исходных и полученных массивов в корректном виде.

«Условный и циклический оператор»
Вариант 18
1.Составить программу вычисления значений функции y=F(x) на отрезке [А, В] в точках Xi=A+I*H, где H=(В-А) /М, где М - заданное целое число. Найти минимальное значение y на [А, В] .
У= arcсos(x) А=0 В=1 м=20
2. По введенному значению скорости запуска определить, что будет с запущенным объектом (упадет на землю, станет спутником Земли, станет спутником Cолнца, покинет солнечную систему) взависимости от того, достигнута ли первая или вторая или третья космическая скорость.

МНЕ КТО ПОМОГ БЫ!!!!
Шпола Шполянський Program usl_i_cykl_operator2;
Uses CRT;
Const
v1=7.9;
v2=11.2;
v3=72.8;
Var
s:Real;
BEGIN
ClrScr;
Write('‚Введите скорость км/с: ');ReadLn(s);
If (s>=0)and(s<v1)>=v1)and(s<v2)then>=v2)and(s<v3)then>=v3 then WriteLn('Покинет солнечную систему');
ReadLn;
END.