В линейном массиве вещественных чисел а (n) заменить все элементы большие 10. на число с.
В линейном массиве вещественных чисел а (n) заменить все элементы большие 10. на число с.
Гость
Ответ(ы) на вопрос:
Гостьconst
k = 20;
var
a: array[1..k] of integer;
c, i, n: integer;
begin
Randomize;
write('Введите число элементов массива (не более 20): ');
readln(n);
write('Введите целое число С: ');
readln(c);
write('Исходный массив: ');
for i := 1 to n do
begin
a[i] := Random(41) - 20;
write(a[i], ' ')
end;
write(#13#10,'Массив-результат: ');
for i := 1 to n do
begin
if a[i] > 10 then a[i] := c;
write(a[i], ' ')
end
end.
Тестовое решение:
Введите число элементов массива (не более 20): 18
Введите целое число С: 99
Исходный массив: -1 -17 -15 16 12 -12 14 19 -1 18 13 11 -17 -6 -17 -2 20 -14
Массив-результат: -1 -17 -15 99 99 -12 99 99 -1 99 99 99 -17 -6 -17 -2 99 -14
Не нашли ответ?
Похожие вопросы