Спасайте.:зх

Одномерный массив из 6 элементов с номерами от 4 до 9 заполнить случайным образом числами от 1 до 10. Все элементы массива, значения которых меньше 5, уменьшить на единицу. Вывести на экран монитора первоначальный и преобразованный массивы в сточку.

Question

Информатика

Олегушка

1 ноября, 19:05

Спасайте.:зх

Одномерный массив из 6 элементов с номерами от 4 до 9 заполнить случайным образом числами от 1 до 10. Все элементы массива, значения которых меньше 5, уменьшить на единицу. Вывести на экран монитора первоначальный и преобразованный массивы в сточку.

+4

Ответы (1)

Знаете ответ?

Мишуня · Answer 1

Var

a: array [4 ... 9] of longint;

q:longint;

begin

for q:=4 to 9 do

begin

a[q]:=random (10) + 1;

write (a[q],' ') ;

end;

writeln () ;

for q:=4 to 9 do

begin

if a[q]<5 then a[q]:=a[q]-1;

write (a[q],' ') ;

end;

end.