Var
a: array[1..10] of integer;
i, max, imax: integer;
begin
for i:=1 to 10 do
readln(a[i]);
max := 0;
for i:=1 to 10 do
if (a[i] > max) and (a[i] > 4) and (a[i] < 9) then
begin
max := a[i];
imax := i;
end;
writeln(imax);
end.
Var array = [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20];
for (i=0;i<=array[i];i++)
{
if (array[i]>5) document.write(i)
}
Python 3.5
k = int(input())
s = 0
n = k*(k-1)+1
m = 0
while m < k:
s = s + n
n = n + 2
m = m + 1
print(s)
Ответ:
program Multi;
var
a, b: Real;
begin
Write ('Введите 2 числа: ');
ReadLn (a, b);
if a * b > 0 then
WriteLn ('Произведение положительно')
else if a * b < 0 then
WriteLn ('Произведение отрицательно')
else
WriteLn ('Произведение равно 0');
ReadLn;
end.