сервис вопросов и ответоввводить числа до тех пор пока не пудет введено положительное найти номер минимального. (Решать в паскале)
10-11 класс|
|
Mamedova0368
11 янв. 2015 г., 21:55:24 (9 лет назад)
Anna191203
12 янв. 2015 г., 0:03:33 (9 лет назад)
var a,i,min,mina:integer;
begin
i:=0;
repeat
write ('Number = ');
readln(a);
inc(i);
if (a<0) and (a<mina) then
begin
min:=i;
mina:=a;
end;
until a>0;
writeln ('Index min: ',min);
readln;
end.
Ответить
Другие вопросы из категории
Помогите по информатике срочно!!! Нужно решить 2 задачи!!!!
1) Определить объем памяти для хранения цифрового аудиофайла, время звучания которого составляет две минуты при частоте дискретизации 44,1 кГц и разрешении 16 бит.
2) В расположении пользователя имеется память объемом 2,6 Мб. Необходимо записать цифровой аудиофайл с длительностью звучания 1 минута. Какой должна быть частота дискредитации и разрядность?
1) Выберите утверждения, относящиеся к недостаткам растровой графики: а) сложно автоматизировать ввод в компьютер; б) нет информации о
форме объектов, составляющих рисунок;
в) не подходит для создания логотипов и чертежей;
г) нельзя использовать для хранения изображений фотореалистичного качества.
2) Какую операцию можно выполнить только над замкнутым объектом?
а) преобразовать в кривую Безье;
б) выполнить обводку;
в) задать контур;
г) выполнить заливку;
д) изменить число узлов.
3) Какое число параметров является достаточным, чтобы описать квадрат, находящийся в заданной точке рабочей области, учитывая, что он может иметь только заливку (любые координаты точек считать одним параметром)?
Помогите пожалуйста!!!
Читайте также
с клавиатуры последовательно вводятся однозначные числа до тех пор пока не будет введено двухзначное число.найди сумму квадратов однозначных чисел
(написать программу на языке паслкаль)
с клавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0. требуется найти произведение чисел из введенной
последовательности кратных пяти
1. Вводить с клавиатуры числа до тех пор пока не будет выведено число 100 найти количество четный чисел 2. Ввести с клавиатуры натуральное число
. Изменить его левую цифру на "9"
Помогите пожалуйста в VBA
Вводить целые числа до тех пор,пока сумма четных чисел не превысит значения 25 по модулю . Вывести на экран все введенные числа.
№1.Составьте программу,выбирающую из всех вводимых в ЭВМ чисел только те, которые входят в интервал от 1 до 5.Ввод производится до тех пор пока сумма
всех введенных данных чисел не будет равна 177. №2. Определите диаметр круга, радиус, площадь, если известна длина окружности L. №3.Даны два действительных числа А, В. Найти наибольшее из них и выяснить четное оно или нет.
Вы находитесь на странице вопроса "вводить числа до тех пор пока не пудет введено положительное найти номер минимального. (Решать в паскале)", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.