В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
scullboy1
scullboy1
07.06.2022 11:17 •  Информатика

Составить программу,формирующую произвольный массив(с функции random) из 40 элементов. все элементы,большие 50,заменить на -6

Показать ответ
Ответ:
Doloeris
Doloeris
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 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота