лементы массива упорядочить по возрастанию и переменной k присвоить порядковый номер элемента массива, равного числу y , или 0, елси такого элемента нет.
5-9 класс
|
const m = 100;
var A: array [1..m] of integer;
i,j,k,y: integer;
begin
randomize;
for i := 1 to m do begin
A[i] := random(100);
end;
y := random(100);
for i := 1 to m-1 do begin
for j := 1 to m-i do begin
if (A[j] > A[j+1]) then begin
k := A[j];
A[j] = A[j+1];
A[j+1] = k;
end;
end;
end;
writeln("uporyadochennyj massiv");
for i := 1 to m do begin
write(A[i]);
write("\t");
end;
writeln(" ");
k := 0;
for i := 1 to m do begin
if (A[i] == y) then k := i;
end;
writeln("k = ", k);
end.
Другие вопросы из категории
Помогите пожалуйста:(
Оформление.например:
Начало
Взять портфель
Посмотреть расписание уроков на завтра
Взять необходимые учебники и тетради
Положить их в портфель
Конец
Читайте также
столбце таблици числа упорядочены по возрастанию.Таблица имеет размеры 5*5 и работы заполнает её числама от 1 до 25,
Какое наименьшее значение суммы числа по периметру таблицы может получиться при ее заполнении
2.Даны 3 переменные вещественного типа:А,В,С.Если их значения упорядочены по возрастанию,то удвоить их.В противном случае заменить значение каждой переменной на противоположное.Вывести новые значения переменных А,В,С.
3. Даны 3 целых числа,одно из которых отлично от двух других,равных между собой. Определить порядковый номер числа,отличного от остальных.
«итог. сумма».
Задание 2.
Переменной Х присвоить значение 7. Переменной Р присвоить значение, равное квадрату Х. Вывести значения переменных Х и Р (через запятую). Значение Х увеличить на Х. Переменной Р присвоить значение, равное корню квадратному из Х. Вывести значения переменных Х и Р (через запятую).DIKTANT 2
Задание 1.
Значение переменной Х присвоить в программе. При неотрицательном значении Х переменной У присвоить значение, равное корню квадратному из Х. В противном случае, переменной У присвоить значение, равное квадрату Х. Вывести на экран значение Х и значение У.Задание 2.
Двум произвольным переменным присвоить произвольным образом соответственно 2 числа. Двум другим переменным присвоить значения, равные тангенсам двух предыдущих переменных. Вывести на экран значения всех переменных, а так же сумму значений двух последних переменных. помогите сделать пожпрограмму ввода элементов массива b[1..6] с клавиатуры и вывода на экран элементов с положительными значемиями
установить отсутствие отрицательных чисел. Алгоритм решения задачи записать виде блок схемы.