Предмет: Информатика,
автор: mityapanteeff
Дан массив действительных чисел А их 10 элементов, заданных случайным
образом в диапазоне от 0 до 44. Заменить все члены, большие заданного x, этим
числом. Число х вводится с клавиатуры.
Ответы
Автор ответа:
0
Ответ:
Const N=10;
Var A: array [1..N] of integer;
i, x: integer;
begin
writeln ('Введите х');
readln (x);
for i:=1 to N do
begin
A[i]:= random (45);
end;
for i:=1 to N do
begin
If A[i] > x then A[i]:= x;
write (A[i], ' ');
end;
end.
Объяснение:
Похожие вопросы
Предмет: Русский язык,
автор: SonyaPonya
Предмет: Другие предметы,
автор: Романтичная
Предмет: Русский язык,
автор: Luser2
Предмет: Математика,
автор: shedol204
Предмет: Математика,
автор: Жрипончик