Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
magakhass
31.07.2020 20:51 •
Информатика
Дан массив из 6 целых чисел. умножить все отрицательные числа на 5. вывести элементы массива.
Показать ответ
Ответ:
softinator
05.10.2020 08:26
Program n1;
const n=6;
var a: array [1..n] of integer;
i: integer;
begin
for i:=1 to n do
begin
readln(a[i]);
if a[i]<0 then a[i]:=a[i]*5;
end;
for i:=1 to n do writeln(a[i]);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Даяна131106
04.05.2021 05:24
На футбольном стадионе находятся болельщики команд: 25000 болельщиков команды Спартак , 12500 болельщиков команды Динамо . Также на стадионе присутствуют 6250 болельщиков команды...
dreadman989
04.05.2021 05:24
Что такое иерархическая система? Приведите три различных примера иерархических структур. Постройте граф для системы, которая имеет иерархическую структуру. Перечислите характеристики...
liza0281
18.09.2022 06:36
Чему равно значение функции F(99)+F(100)? Pascal...
Про100олюшка
27.04.2020 11:51
Прочесть пр. 9 (стр. 52-57) Отправить конспекты по темам 6-9ЗА 6 КЛАСС Авторы: Л.Л. Босова, А.Ю. БосоваИздательство: Бином 2015Тип книги: Учебникдаюю 30 б.2 чясть...
виктор238
17.03.2021 21:01
The printed output from a computer is called...
крист34
09.10.2022 10:22
Решить : информационный объём текста книги, набранный на компьютере с использованием кодировки unicode,-128 килобайт. определить количество символов в книги....
Првоадыш263
09.10.2022 10:22
Введите три числа a,b,c. найдите сумму двух наибольших из них....
Opasnaya2001
09.10.2022 10:22
Керує роботою всіх пристроїв компютера...
Maxxxx123
21.04.2023 12:49
Введите с клавиатуры целочисленные координаты точки на плоскости (x,y). выведите 0 , если точка совпадает с началом координат, 1 , если точка лежит на координатных осях, и 2 , если...
Ульяна1561
21.04.2023 12:49
Кто нибудь ! 1) используя цикл с предусловием найдите количество цифр целого введенного с клавиатуры и выведите значение на экран напаскале. 2) определите и выведите все трехзначные...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const n=6;
var a: array [1..n] of integer;
i: integer;
begin
for i:=1 to n do
begin
readln(a[i]);
if a[i]<0 then a[i]:=a[i]*5;
end;
for i:=1 to n do writeln(a[i]);
end.