Заходишь в сектор "я" потом нажимаешь на свое фото потом загружаешь фото а потом выбираешь имя в том же секторе
Я не стану указывать эпитетов к своему коду, пусть он сам скажет за себя.
Алгоритм такой: просматриваем массив от конца к началу. И завершаем работу, как только встретим отрицательный элемент. А если так и не встретим до начала массива, значит таких элементов в массиве нет.
const
n=20; { размер массива }
var
a:array[1..n] of integer;
i:integer;
found:boolean;
begin
Randomize;
Writeln('Элементы массива');
for i:=1 to n do begin
a[i]:=Random(21)-10; { случайное число на интервале [-10;10] }
Write(a[i]:4)
end;
Writeln;
{ собственно задание }
i:=n;
repeat
found:=(a[i]<0);
Dec(i)
until (i=0) or found;
if found then Writeln('Номер элемента равен ',i+1)
else Writeln('Отрицательных элементов нет')
end.
<em><u>Тестовое решение:</u></em>
Элементы массива
-3 5 -2 3 2 -2 -5 7 9 -3 1 -2 -1 -6 1 -6 2 8 7 1
Номер элемента равен 16
var
m, n, x : integer;
begin
write('введите m ');
readln(m);
write('введите n ');
readln(n);
writeln('значение функции y=sin(4x^2) на промежутке от m до n');
for x := m to n do writeln('x=', x, ' y=', sin(degToRad(4*sqr(x))));
writeln('значение функции y=x^2+8x-6 промежутке от m до n');
for x := m to n do writeln('x=', x, ' y=', sqr(x)+8*x-6);
end.
СМЕШАРИКИ (маша только в 4 4 исключаем филин только в 1 1 исключаемв ну погоди нет ежиков)