Дан массив из 100 элементов. Необходимо заполнить первые n из них первыми n натуральными числами в порядке убывания. Формат входных данных С клавиатуры вводится натуральное число n (n≤100n≤100). Формат выходных данных Требуется...
Дан массив из 100 элементов. Необходимо заполнить первые n из них первыми n натуральными числами в порядке убывания.
Формат входных данных
С клавиатуры вводится натуральное число n (n≤100n≤100).
Формат выходных данных
Требуется вывести содержимое первых n элементов массива после заполнения согласно условию задачи. Элементы должны разделяться пробелами.
Гость
Ответ(ы) на вопрос:
Гостьvar ar:array[1..100]of integer;
i,n:integer;
begin
read(n);
for i:=n downto 1 do
ar[i]:=i;
for i:=n downto 1 do
write(ar[i],' ');
end.
ГостьCLSINPUT NDIM A(N)FOR i = 1 TO N A(i) = INT(RND * 100)NEXT iFOR i = 1 TO N FOR j = 1 TO N IF A(i) > A(j) THEN SWAP A(i), A(j) NEXT jNEXT iFOR i = 1 TO N PRINT A(i);NEXT i
Не нашли ответ?
Похожие вопросы