помогите,пожалуйста
Посто\роить программы используя одномерный массив из 100 чисел.Найти элементы которые больше 10 и вывести квадрат этих чисел до 100.
Посто\роить программы используя одномерный массив из 100 чисел.Найти элементы которые больше 10 и вывести квадрат этих чисел до 100.
Answers & Comments
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 ] < min) then min := arr[ i ];
arr[ 0 ]:=min;
for i:=1 to n do
write(arr[ i ],' ');
мой брат писал