Одномерный массив из 12 элементов заполнить случайным образом числами от 0 до 50. Если пятый элемент таблицы меньше десятого элемента,то присвоить этим элементам удвоенное собственное значение,иначе обнулить эти элементы массив...
Одномерный массив из 12 элементов заполнить случайным образом числами от 0 до 50. Если пятый элемент таблицы меньше десятого элемента,то присвоить этим элементам удвоенное собственное значение,иначе обнулить эти элементы массива.Вывести на экран монитора первоначальный и преобразованный массвы в строчку.
Гость
Ответ(ы) на вопрос:
Гостьvar
a:array[1..12]of integer;
i:integer;
begin
writeln('Исходный массив:');
for i:=1 to 12 do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
if a[5]
Не нашли ответ?
Похожие вопросы