помогите,пожалуйстаПостороить программы используя одномерный массив из 100 чисел.Отыскать

Помогите,пожалуйста
Посто\роить программки используя одномерный массив из 100 чисел.Отыскать элементы которые больше 10 и вывести квадрат этих чисел до 100.

Задать свой вопрос
1 ответ

n:=10

for i:=1 to n do

begin

arr[ i ] := random(50);

writeln(arr[ i ]);

end;

min:=arr[ 0 ];

for i:=1 to n do

if (arr[ i ] lt; min) then min := arr[ i ];

arr[ 0 ]:=min;

for i:=1 to n do

write(arr[ i ],' ');

мой брат писал

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт