Составьте программу, которая заполняет массив [1..10] случайными ...
Составьте программу, которая заполняет массив [1..10] случайными целыми числами в диапазоне от 1 до 10, затем меняет местами первый и последний элементы. Выведите на экран исходный и полученный массивы.
Есть ответ
17.12.2022
497
Ответ
Program Program1;Vara:array [1..10] of integer;i,temp:integer;beginrandomize;writeln('Исходный массив:');for i:=1 to 10 dobegina[i]:=random(10)+1;writeln('a[',i,']=',a[i]);end;temp:=a[1];a[1]:=a[10];a[10]:=temp;writeln;writeln('Полученный массив:');for i:=1 to 10 dowriteln('a[',i,']=',a[i]);end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
