Задача на паскале:
5-9 класс
|
Дано n чисел найти номер максимального числа.
var n,i,i1,x,max:integer;
begin
readln(n);
while n<>0 do begin
n:=n-1;
inc(i);
readln(x);
if max<x then begin max:=x; i1:=i; end;
end;
writeln(i1);
end.
Другие вопросы из категории
Почему графический способ считается удобнее словесного? (если можно ответ в краткой форме)
а) характеристикой процессора
б) еденицей объема информации
в) еденицей измерения времени
пользователь работал с каталогом Автомобили С начала он поднялся на один уровень верх,затем спустился на один уррвень вниз потом еще раз спустился на один уровень вниз
звпишите полный путь каталога с которым пользователь работал
Читайте также
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.
ПОЖАЛУЙСТА,ХОТЯ БЫ НА ПАСКАЛЕ СОСТАВЬТЕ!
каждого года XX века?
2)Вы приобрели котёнка.Каждый вечер вы определяете его вес с помощью весов.Как можно описать на Паскале массив,в котором будет храниться значения веса котёнка в течение месяца (например,мая)?
их 4 штуки!
1.дан массив тз N элементов. Есть ли в нем чётные элементы, которые кратны заданному числу K.
2. Дан массив из Nэлементов. Посчитать, сколько элементов массива равных минемальному.
3. Сформировать массив из Nэлементов: 10 12 16 22 30 40.
4. Дан массив из Nэлементов. Перемножить минемальные элементы на 2.
Heeelp!