написать программу на Паскале: "найти номер первого максимального элемента во вводимой с клавиатуры последовательности чисел. Условие окончания
10-11 класс
|
ввода – ввод числа 0."
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 вводится с клавиатуры.
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
2.написать программу в паскале
f(x)=2(sin*sin)x+1
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива