Статистика
Всего в нашей базе более 4 326 244 вопросов и 6 444 423 ответов!

написать программу на Паскале: "найти номер первого максимального элемента во вводимой с клавиатуры последовательности чисел. Условие окончания

10-11 класс

ввода – ввод числа 0."

Galchenochekga 24 окт. 2016 г., 16:44:46 (2 года назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Gul00naz23110
24 окт. 2016 г., 18:17:45 (2 года назад)

program zadacha_1;

var max,rd,i,txr:integer;

begin

i:=1;

repeat;

writeln('Введи ',i,' -ое число');

readln(rd);

if max<rd then txr:=i;

i:=i+1;

until rd=0;

writeln('Номер максимального элемента - ',txr);

end.

Ответить

Читайте также

Нужно написать программу на Паскале используя процедуру.

Условие: Найти и вывести максимальный элемент кратный N.
N вводится с клавиатуры.

написать программу на Assembler

добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.

задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов

Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.

заранее огромное спасибо всем!

дан массив из семи элементов написать программу подсчитывающую

среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива



Вы находитесь на странице вопроса "написать программу на Паскале: "найти номер первого максимального элемента во вводимой с клавиатуры последовательности чисел. Условие окончания", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.