Создать одномерный массив с помощью генератора случайных чисел, элементами которого являются целые числа из диапазона -50 до +120. Все элементы массива больше 7 заменить нулем.Распечатать измененный массив.
Создать одномерный массив с помощью генератора случайных чисел, элементами которого являются целые числа из диапазона -50 до +120. Все элементы массива больше 7 заменить нулем.Распечатать измененный массив.
Гость
Ответ(ы) на вопрос:
Гостьprogram p1;
var a: array[1..10] of integer; i: integer;
begin for i := 1 to 10 do begin a[i] := random(170) - 50; write(a[i], ' ') end; writeln; for i := 1 to 10 do if a[i] > 7 then a[i] := 0; for i := 1 to 10 do write(a[i], ' ')end.
Не нашли ответ?
Похожие вопросы