вводить числа до тех пор пока не пудет введено положительное найти номер минимального. (Решать в паскале)
10-11 класс
|
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.
Другие вопросы из категории
1) Определить объем памяти для хранения цифрового аудиофайла, время звучания которого составляет две минуты при частоте дискретизации 44,1 кГц и разрешении 16 бит.
2) В расположении пользователя имеется память объемом 2,6 Мб. Необходимо записать цифровой аудиофайл с длительностью звучания 1 минута. Какой должна быть частота дискредитации и разрядность?
форме объектов, составляющих рисунок;
в) не подходит для создания логотипов и чертежей;
г) нельзя использовать для хранения изображений фотореалистичного качества.
2) Какую операцию можно выполнить только над замкнутым объектом?
а) преобразовать в кривую Безье;
б) выполнить обводку;
в) задать контур;
г) выполнить заливку;
д) изменить число узлов.
3) Какое число параметров является достаточным, чтобы описать квадрат, находящийся в заданной точке рабочей области, учитывая, что он может иметь только заливку (любые координаты точек считать одним параметром)?
Помогите пожалуйста!!!
Читайте также
(написать программу на языке паслкаль)
последовательности кратных пяти
. Изменить его левую цифру на "9"
Вводить целые числа до тех пор,пока сумма четных чисел не превысит значения 25 по модулю . Вывести на экран все введенные числа.
всех введенных данных чисел не будет равна 177. №2. Определите диаметр круга, радиус, площадь, если известна длина окружности L. №3.Даны два действительных числа А, В. Найти наибольшее из них и выяснить четное оно или нет.