лиди заходят в зал , рассказывают кто они откуда и дарят подарки , крутят барабан , получают призы. Я точно не знаю лучьше позвони или спроси у своей бабушки))
Аня-математика.
Саша-география.
Лена-история.
Вася-Литература.
Миша-Информатика
Аня - пироги с вареньем
ваня - пироги с капустой
лена - блины с вареньем
света - оладьи со смаетаной
Const n=15;
var a:array[1..n]of integer;
i,min,k:integer;
begin
for i:=1 to n do a[i]:=Random(100)-20;
for i:=1 to n do
write(a[i],' ');
writeln;
min:=a[1];
for i:=1 to n do
if (a[i]<min) and (a[i]>0) then begin
min:=a[i];
k:=i;
end;
write('минимальный из положительных элементов массива ',min,', его порядковый номер ',k);
<span>end.</span>