Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
макс3024
25.02.2020 21:09 •
Информатика
Напишите программу на языке паскаль для решения следующей : дан массив вещественных чисел из 10 элементов. поменять в нем первый элемент массива с последним. пример: входные данные: 2,3,-4,5,-6,2,-5,7,-9,-3 выходные данные: -3,3,-4,5,-6,2,-5,7,-9,2
Показать ответ
Ответ:
неудачник16
01.10.2020 12:29
Program g;
const n = 10;
var a:array [1..n] of real;
i:integer;
s: real;
begin
for i:=1 to n do
read(a[i]);
s:= a[1];
a[1]:=a[10];
a[10]:=s;
for i:=1 to n do
write(a[i]+',');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Saralove34
15.10.2022 00:19
Нужна в лабораторной работе по информатике, в программе лазарус нужно выполнить задание: 1.Организовать ввод массива -67, 1, 78, -9, -2, -1, 34, 72, -13, 0 с клавиатуры....
Annet483
14.05.2022 22:36
Укажите сколько раз повторяется тело выделенного цикла в представлении алгоритма(стартовая позиция левый верхний угол)...
софа07022007
01.10.2020 04:45
25 .выполните алгоритм 1)запишите слово,которое означает небесное тело ,вращающееся по орбите. 2)поменяйте 5-ую и 6-ую буквы местами. 3)замените букву буквой р 4) замените...
Иринка853653
25.09.2020 09:49
Ветвление. для самостоятельного решения. паспорт гражданину рф с 14 лет. человек вводит дату своего рождения (число, месяц и год) и количество прожитых лет. на печать выводится...
kristina231220
08.06.2021 18:34
Для чего предназначены архиваторы? Выберите один ответ: а) для работы с текстовой информацией б) для сжатия программ и данных в) для автоматизации вычислений г) для автоматического...
rufinafin
04.08.2022 01:27
Задание 1. Напишите программу, определяющую принадлежность точки х отрезку [a;b]. (все переменные опишите как real и введите с клавиатуры).Для проверки принадлежности точки...
aikab03
08.11.2022 16:10
решите Программное обеспечение делится на: Выберите один ответ: 1) на антивирусные программы, архиваторы, приложения 2) приложения и утилиты 3)программы для обучения, программы...
SKIRLES
26.03.2023 20:50
Трехмерные модели. Урок 1 Пользователь создал модель и хочет посмотреть на нее сверху. Какие команды необходимо для этого выполнить?Окно – Поместить в правую часть экранаИнструменты...
помогитепж19
23.12.2022 15:15
Выбери носители, которые являются цифровыми. Верных ответов: 2картинаUSB-накопительоблачное хранилищемузыкальная пластинкаКНИГА...
AlinaElsukova
04.11.2022 04:46
Считая, что каждый символ кодируется одним байтом, оцените информационный объем следующего предложения из пушкинского четверостишия: Певец-Давид был ростом мал, Но повалил...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const n = 10;
var a:array [1..n] of real;
i:integer;
s: real;
begin
for i:=1 to n do
read(a[i]);
s:= a[1];
a[1]:=a[10];
a[10]:=s;
for i:=1 to n do
write(a[i]+',');
end.