Спасайте.:зх
5-9 класс
|
Одномерный массив из 6 элементов с номерами от 4 до 9 заполнить случайным образом числами от 1 до 10. Все элементы массива,значения которых меньше 5,уменьшить на единицу.Вывести на экран монитора первоначальный и преобразованный массивы в сточку.
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.
Другие вопросы из категории
Читайте также
текстом?
(спасайте)
неисправности и сообщает пилоту о необходимых действиях. Для решения этой задачи ему нужно выполнить 10(8) (в восьмых) вычислительных операций. Быстродействие компьютера 1 млн оп/сек. успеет ли летчик спасии самолет если минимальная высота, на которой самолет можно вывести на пике 2000 метров?