Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
cocscocsovich3
02.03.2023 10:19 •
Информатика
Составить программу,формирующую произвольный массив(с функции random) из 40 элементов. все элементы,большие 50,заменить на -6
Показать ответ
Ответ:
Дарья20099
04.08.2020 13:23
Const Sz = 40;
var a: array [1..Sz] of integer;
N: integer;
i: integer;
k:integer;
begin
k:=50;
N := 40;
for i:=1 to N do
a[i] := Random(100);
writeln('Элементы массива: ');
for i:=1 to N do write(a[i],' ');
writeln();
begin
for i:=1 to n do begin
if a[i] > N then
a[i] := -6 end;
writeln('Заменяем элементы > 50 на -6: ');
for i:=1 to N do
write(a[i],' ');
writeln();
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
2005kolzaarina2
16.08.2021 08:20
Мне нужно дать название моему проекту и этапы работы.Тема проекта- Безопасность в социальных сетях интернета . Только хорошо подумайте,можно несколько названий....
kateKos1
18.12.2022 21:08
Напишите программу которая находит первые n натуральных чисел у которых остаток от деления на 3 равен 1. pascalabc.net...
Dhshssh
13.06.2022 21:36
Пример 4. алгоритм, позволяющий из полного сосуда ёмкостью 12 л отлить половину, пользуясь двумя пустыми ёмкостью 8 и 5 л.алг переливанияначнаполнить сосуд ёмкостью 8...
hhwjsbjweujskzks
26.06.2022 03:00
Контрольные вопросы: 1. какие инструкции предназначены для ввода с клавиатуры во время работы программы исходных данных? 2. какие инструкции предназначены для вывода на...
bobr600
26.10.2020 19:57
старик хоттабыч взялся сдать экзамены. для того, чтобы наколдовать правильный ответ на один вопрос по , он должен вырвать из своей бороды 6 волосков, чтобы наколдовать...
wwe555
06.01.2022 03:01
Сколько лет автору вопроса, если его возраст в 3 раза меньше суммы возрастов его братьев (1000102,11102)?...
oksankavdovina
20.04.2021 20:04
Составить алгоритм сложения действительных чисел...
Vica73751
25.07.2020 02:24
30 . написать код (питон)без сложных синтаксисов, как можно проще...
zaika787
01.05.2021 08:34
Вкакой режим ms access автоматически переходит при изменении или вводе новых записей? -поиска и замены -редактирования -фильтрации -сортировки...
Nika2006klubnika
05.01.2021 17:01
Найти среднее арифметическое значений функции f(x) в точках а, b, (a+b)/2, используя обращение к функции. f=1/4*ln*(1+x)/(1-x)+1/2*arctgx при a=0,1; b=0,8. нужно составить...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a: array [1..Sz] of integer;
N: integer;
i: integer;
k:integer;
begin
k:=50;
N := 40;
for i:=1 to N do
a[i] := Random(100);
writeln('Элементы массива: ');
for i:=1 to N do write(a[i],' ');
writeln();
begin
for i:=1 to n do begin
if a[i] > N then
a[i] := -6 end;
writeln('Заменяем элементы > 50 на -6: ');
for i:=1 to N do
write(a[i],' ');
writeln();
end;
end.