tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Одномерные массивы паскаль заменить
Одномерные массивы паскаль заменить все элементы массива, большие второго и меньшие пятого, на сумму второго и пятого.
matematuk007
1 09.06.2019 05:10
4
Ответы
BlockStriker1
08.07.2020 01:50
Const n = 10;
var a :array [1..n] of integer; i :integer;
begin
for i:= 1 to n do readln(a[i]); for i:= 1 to n do if (a[i] > a[2]) and (a[i] < a[5]) and (i <> 2) and (i <> 5) then a[i]:= a[2] + a[5];
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
andreyffyff
04.08.2019 08:00
Склавиатуры вводятся 10 элементов массива. вывести на экран их кубы....
danilbalabanov
04.08.2019 08:10
3вида профессий работающих с информацией...
Valentina54
04.08.2019 08:10
Какой протокол отвечает за передачу пакета в сети?...
EvilVitaliy
07.09.2020 07:30
ответить на 1, 2, 3, 4, 5, 6. вопросы ...
Cказочник
03.12.2020 06:58
Информатика задание 1 сверху:Записать формулу для Excel, учитывая ,что значение переменной х находится в ячейке А1,а переменной у в ячейке В2. Кто разбирается И снизу задание...
mimikatja12
03.12.2020 06:58
Информационное сообщение объемом 1215 битов содержит 243 символов.Сколько симфолов содержит алфавит,при которого было записано это сообщение?...
луч16
07.04.2021 09:52
Нужно решить на языке программирования C#. Даны x, y, z. Вычислить a, b, если:...
sulti1675gmailcom
07.04.2021 09:52
1100Б . блин я тупая, поставила 10б...
E2006
07.04.2021 09:50
найти игру, вот описание: Игра повествует об истории, происходящей в далеком будущем. Солдат попал в окружение: десятки киборгов надвигаются со всех сторон ему выжить. Окоп защищает...
tatgomer
07.04.2021 09:52
Дана задача: Земля вращается вокруг Солнца со скоростью 30 км/с. На сколько километров она продвинется за t секунд. Проведите анализ ошибки в программировании решения...
Популярные вопросы
Объясните смысл пословицы: Дай голому холст, а он скажет: «Толст»...
1
Объясните смысл пословицы: Для милого дружка и серёжку из ушка...
1
Объясните смысл пословицы: До свадьбы заживёт...
3
Объясните смысл пословицы: Держи голову в холоде, а ноги в тепле...
3
Объясните смысл пословицы: Далеко кулику до Петрова дня...
2
Объясните смысл пословицы: Дают — бери, бьют — беги...
2
Объясните смысл пословицы: Дела — как сажа бела...
1
Объясните смысл пословицы: Дела давно минувших дней...
1
Объясните смысл пословицы: Грязь — не сало, потёр — и отстало...
1
Объясните смысл пословицы: Гром не грянет, мужик не перекрестится...
1
var a :array [1..n] of integer; i :integer;
begin
for i:= 1 to n do readln(a[i]); for i:= 1 to n do if (a[i] > a[2]) and (a[i] < a[5]) and (i <> 2) and (i <> 5) then a[i]:= a[2] + a[5];
end.