Паскаль, помогите!!! Ввести с клавиатуры массив из 12 элементов.Переставить первый и последний элемент. Третий заменить на восьмой
10-11 класс
|
Lenapo
16 окт. 2014 г., 12:47:21 (9 лет назад)
Rassvet1003
16 окт. 2014 г., 14:04:48 (9 лет назад)
const
n=12
var
a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do readln(a[i]);
k:=a[1];
a[1]:=a[n];
a[n]:=k;
a[3]:=a[8];
for i:=1 to n do write (a[i],' ');
readln;
end.
Ответить
Другие вопросы из категории
Помогите пожалуйста! Напечатать "столбиком" все целые числа от а до b (значения а, b вводятся с клавиатуры; b>=а). Просьба не
спамить. Заранее спасибо.
Читайте также
1)ввести с клавиатуры массив из n элементов вывести на экран элементы меньшие среднего арифметического всех элементов массива
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент
Составить программу на языке Паскаль: 1)Для массива K из 12 вещественных чисел определить сколько элементов массива меньше 0. 2)В массиве М из 10 целых
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
ввести с клавиатуры массив из 5 элементов найти минимальный из них 4 15 3 10 14
напишите пожалуйста в паскале
Вы находитесь на странице вопроса "Паскаль, помогите!!! Ввести с клавиатуры массив из 12 элементов.Переставить первый и последний элемент. Третий заменить на восьмой", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.