сервис вопросов и ответовДан одномерный массив целых чисел поменять местами самый первый и самый последний элемент не равный 0. Программа Pascal
5-9 класс|
|
Reta2003
02 апр. 2014 г., 5:52:58 (10 лет назад)
Akimowsasha19
02 апр. 2014 г., 8:08:28 (10 лет назад)
var a:array[1..10]of integer;
i,k,i1:integer;
begin
for i:=1 to 10 do readln(a[i]);
for i:=10 downto 1 do if a[i]<>0 then begin k:=a[i]; i1:=i; break; end;
a[i1]:=a[1];
a[1]:=k;
for i:=1 to 10 do write(a[i],' ');
end.
Ответить
Другие вопросы из категории
оцените информационный объем в килобайтах моноаудиофайла длительностью звучания 20 с, если глубина кодирования и частота дискретизации звукового сигнала
равны соответствено 8 бит и 8 кГц.
Ответ очень нужно срочно буду очень благодарна:*
1. Какими значками египтяне изображали слова " солнце", "идти", "хлеб", " рот"? 2.Сколько всего былоиероглифоф в египетском письме? 3.Как египтяне
перешли от изображения значком целого слова к изображению значком отдельного звука?
1.Массив вводится с клавиатуры как округленные до целого числа градусов температуры в каждый день апреля. Нужно вывести на экран максимум температуры во
второй половине месяца (с 15 месяца). Задачу решить оптимально,т.е. за минимально возможное время выполнения
2.Измените первую программу из задания 1 так,чтобы она выводила все дни в апреле,когда максимальная температура приходилась на четную дату
3.Измените программу из задания 2 так,чтобы она выводила количество дней в апреле,когда максимальная температура приходилась на четную дату
Читайте также
1.Дан массив целых чисел, найти среднее арифметическое всех элементов массива.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
1.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами до 50. Найти сумму всех четных элементов массива и их количество.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
Дан массив целых чисел.Поменять местами первый максимальный (если таковых несколько) и последний минимальный (если таковых несколько) по значению
элементы массива. Число элементов в массиве не более 10-ти Pascal
Вы находитесь на странице вопроса "Дан одномерный массив целых чисел поменять местами самый первый и самый последний элемент не равный 0. Программа Pascal", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.