Главная /
Решение олимпиадных задач по информатике /
[формула] вводятся числа: 5, 4, 3, 2, 1. Массив У будет содержать значения: . . . for i:=1 to n do begin readln (x[i]); y[i]:=i; end; for j:=n downto 2 do for i:=1 to j-1 do if x[i]>x[i+1] then begin m:=x[i]; x[i]:= x[i+1]; x[i+1]:=m; g:=y[i]; y[i]:= y
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в массив
вводятся числа: 5, 4, 3, 2, 1. Массив У будет содержать значения:
Правильный ответ:
5 4 3 2 1
1 2 3 4 5
5 5 5 5 5
1 1 1 1 1
Сложность вопроса
91
Сложность курса: Решение олимпиадных задач по информатике
77
Оценить вопрос
Комментарии:
Аноним
Какой человек ищет вот эти ответы по интуит? Это же элементарно
10 апр 2019
Аноним
Если бы не эти решения - я бы не решил c этими тестами intuit.
14 сен 2017
Другие ответы на вопросы из темы программирование интуит.
- # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет выборка элементов из исходного массива А={1, 2, 3}. … for i:=1 to n do for j:=i to n do writeln (A[i], A[j]); … Введите результат вывода программы без пробелов:
-
#
Найдите ошибки в приведенной ниже программе на Паскале, которая выполняет перевод числа
из 10-тичной в
-ричную систему счисления (b<10):
var a, b, s, x: real;
begin
readln (a); readln (b); s:=0;
while (a<>0) do
begin
x:=a mod b; s:=s+x; a:=a div b;
end;
writeln (s);
end.
-
#
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, двумерный массив
будет заполнен так:
…
for j:=1 to 4 do
for i:=1 to 5 do x[i,j]:=i;
…
- # Использование дополнительного массива флажков ("отмечающих" выбранные элементы в соответствующих флажкам позициях исходного массива) предполагает, что:
- # Какие значения примут элементы первой строки двумерного массива, размерностью 5x5, в результате выполнения программы на Паскале, фрагмент которй приведен ниже (введите числа через пробел) … for k:=1 to (n div 2 +1) do for i:=k to n-k+1 do for j:=k to n-k+1 do a[i,j]:= k; …
из 10-тичной в
-ричную систему счисления (b<10):
var a, b, s, x: real;
begin
readln (a); readln (b); s:=0;
while (a<>0) do
begin
x:=a mod b; s:=s+x; a:=a div b;
end;
writeln (s);
end.