строку
i:=1;
нужно поменять на
i:=n; (раз уж вы начинаете считать с конца)
а строки
while (i>=0) and (a[i]<=0) do i:=i-1;
if i<0 then writeln(0)
на
while (i>0) and (a[i]<=0) do i:=i-1;
if i=0 then writeln(0) (поскольку нет 0-ого элемента массива, и может выдаваться ошибка)

0 0

4 года назад

Прочитать ещё 2 ответа

Вывести на экран n первых степеней числа k. Например: при вводе чисел n=3,k=5 На экране должно появиться: степень: 1, результат:

Kondor270 [4]

var n,k,s:integer;

begin

s:=1;

write ('Введите число: ');

readln(k);

write ('Введите степень: ');

readln(n);

for n:=1 to n do

begin

s:=s*k;

writeln('степень: ',n,' результат: ',s)

end

end.

0 0

4 года назад

Если бы вы сейчас были на Луне, ваш вес составил бы 16,5 процентов от земного. Чтобы узнать, сколько это, умножьте свой земной в

NNika

mas = float(input('Введите вашу массу в кг: ')) #ввод массы

mas_on_Moon = mas * 0.165 #умножение на 16.5 процента

print("Ваш вес на Луне составляет " + str(mas_on_Moon) + " кг")

for i in range(15):

mas += 1 # увеличивание массы на 1

mas_on_Moon = mas * 0.165

print(str(i+1) + ") Масса на Земле = " + str(mas) + " кг | Масса на Луне = " + str(mas_on_Moon) + " кг")

0 0

5 лет назад

Помогите ответить, пожалуйста 1. В чем разница между растровым и векторным способами представления изображения? 2. Чем вы может

Петербуржец

1.Растр выглядит в виде точек - Пикселей.
Векторное изображение задается формулами.
2.Тем что существуют разные программы выполняющий разный тип задач и для каждый из них нужно, что то свое.

0 0

4 года назад