<span>Sub Main()
Dim a, b, c As Integer
a = Int32.Parse(Console.ReadLine())
b = Int32.Parse(Console.ReadLine())
c = Int32.Parse(Console.ReadLine())
Console.WriteLine(IIf(a * b * c < 0, "-", "+"))
Console.Read()
<span>End Sub
</span>
Можно было и короче, но для школы так лучше) </span>
const n=10;
var a:array [1..n] of integer;
i,max,min,imax,imin:integer;
begin
min:=100;
max:=1;
write(' Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(100)+1;
if a[i] > max then
begin
max:=a[i];
imax:=i
end;
if a[i] < min then
begin
min:=a[i];
imin:=i
end;
write(a[i]:3,' ')
end;
writeln;
a[imax]:=min;
a[imin]:=max;
write('Полученный массив: ');
for i:=1 to n do write(a[i]:3,' ')
end.
Аня-туристка
Боря-художник
гриша-футбол
дина-певица
вася-танцор
Program p1;
var i,n,a:integer;
begin
n:=99;
a:=10;
for i :=10 to n do
begin
a:=a+i;
end;
writeln(a);
readln;
end.