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

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

Question

Информатика

Глорибза

1 декабря, 01:35

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

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

+1

Ответы (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.