Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 978 ответов!

лементы массива упорядочить по возрастанию и переменной k присвоить порядковый номер элемента массива, равного числу y , или 0, елси такого элемента нет.

5-9 класс

Mostov1717 26 дек. 2013 г., 11:00:28 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Valentinka04
26 дек. 2013 г., 13:49:07 (10 лет назад)

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,

Какое наименьшее значение суммы числа по периметру таблицы может получиться при ее заполнении

1.Дано целое число,лежащее в диапазоне 1-999.Вывести его строку-описание вида "четное двузначное число","нечетное трехзначное число" и т.д.

2.Даны 3 переменные вещественного типа:А,В,С.Если их значения упорядочены по возрастанию,то удвоить их.В противном случае заменить значение каждой переменной на противоположное.Вывести новые значения переменных А,В,С.
3. Даны 3 целых числа,одно из которых отлично от двух других,равных между собой. Определить порядковый номер числа,отличного от остальных.

Задание1. Значение переменной Х ввести с клавиатуры. Переменной У присвоить значение 5. Вывести на экран информацию «знач.Х»+5=

«итог. сумма».

Задание 2.

Переменной Х присвоить значение 7. Переменной Р присвоить значение, равное квадрату Х. Вывести значения переменных Х и Р (через запятую). Значение Х увеличить на Х. Переменной Р присвоить значение, равное корню квадратному из Х. Вывести значения переменных Х и Р (через запятую).

DIKTANT 2

Задание 1.

Значение переменной Х присвоить в программе. При неотрицательном значении Х переменной У присвоить значение, равное корню квадратному из Х. В противном случае, переменной У присвоить значение, равное квадрату Х. Вывести на экран значение Х и значение У.

Задание 2.

Двум произвольным переменным присвоить произвольным образом соответственно 2 числа. Двум другим переменным присвоить значения, равные тангенсам двух предыдущих переменных. Вывести на экран значения всех переменных, а так же сумму значений двух последних переменных. помогите сделать пож

1)составьте программу ввода элементов массива а[1..8 ] с клавиатуры и вывода на экран элементов с отрицательными значениями; 2)составьте

программу ввода элементов массива b[1..6] с клавиатуры и вывода на экран элементов с положительными значемиями

В одномерном массиве А, состоящем из неповторяющихся чисел с номерами от 1 до N, требуется найти порядковый номер наибольшего отрицательного числа или

установить отсутствие отрицательных чисел. Алгоритм решения задачи записать виде блок схемы.



Вы находитесь на странице вопроса "лементы массива упорядочить по возрастанию и переменной k присвоить порядковый номер элемента массива, равного числу y , или 0, елси такого элемента нет.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.