Var n,i,k,k1:integer;
a:array[1..1000]of integer;
begin
k:=0;
k1:=1;
read(n); //СДЕСЬ ВВОДИТСЯ КОЛИЧЕСТВО ЭЛЕМЕНТОВ В МАССИВЕ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
for i:=1 to n do
Begin
randomize;
a[i]:=random(31)-10;
end;
for i:=1 to n do
begin
k:=k+a[i];
k1:=k1*a[i];
end;
for i:=1 to n do
write(a[i],' ');
writeln(k);//СУММА
writeln(k1); //ПРОИЗВЕДЕНИЕ
end.
var a: array[1..10] of integer;
i,sum: integer;
begin
sum:=0;
writeln('введите массив:');
for i:=1 to 10 do begin
readln(a[i]);
if a[i] mod 2=0 then sum:=sum+a[i];
end;
a[1]:=sum;
write('полученный массив: ');
for i:=1 to 10 do write(a[i],' ');
end.
Ответ:
program tochka;
var x,y:real;
begin
writeln('Input x,y');
read(x,y);
if (x*x+y*y>4) and (y<x) and (x<2) then writeln ('YES')
else
writeln('NO');
end.
sad = 0
minlol = 190
maxlol = 150
name = input()
while name != '!':
name = int(name)
if name >= 150 and name <= 190:
sad += 1
if name < minlol:
minlol = name
if name > maxlol:
maxlol = name
name = input()
print(sad)
print(minlol, maxlol)
Ответ:
Как я понял вам нужен список чисел от 1 до 100(включительно):
numbers=[i for i in range(1,101)]