Создать одномерный массив с помощью генератора случайных чисел, элементами которого...

0 голосов
51 просмотров

Создать одномерный массив с помощью генератора случайных чисел, элементами которого являются целые числа из диапазона -50 до +120. Все элементы массива больше 7 заменить нулем.Распечатать измененный массив.


Информатика (17 баллов) | 51 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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.

(156 баллов)