Составьте программку, которая формирует массив d из 14 случайных чисел, принадлежащих

Составьте программку, которая формирует массив d из 14 случайных чисел, принадлежащих промежутку от -7 до 25 и заменяет числа, кратные 5ти на 0

Задать свой вопрос
Lilija Koshkosh
Вывод частей нужен?
Катя Гаговец
нет, просто сама программа
1 ответ

var

d:array [1..14] of integer;

a:integer;

begin

for a:=1 to 14 do begin

d[a]:=random(32)-7;

if d[a] mod 5=0 then d[a]:=0;

end;

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт