a = [float(input()) for i in range(int(input("n=")))]
print(a)
for i in range(0,len(a)):
if i % 2 == 0:
a[i] /= 3
else:
a[i] *= 2
print(a)
#include <iostream>
using namespace std;
int main()
{
int N;
int i1=0,i2=0;
cin>>N;
for(int i=0;i<N;i++)
{
int a = rand()%11-5;
if(a<0)
i1++;
if(a>0)
i2++;
}
cout<<">0 - "<<i2<<endl<<"<0 - "<<i1<<endl<<"!=0 - "<<i1+i2<<endl;
system("PAUSE");
}
P.S. Задачу можно решить не только через Turbo Pascal.
TurboPascal(может не очень верно)
var
a,n, i1, i2, i: integer;
begin
n := 42;
for i:=1 to n do begin
a:=random(11)-5;
if a > 0 then
i1 := i1 + 1;
if a < 0 then
i2 := i2 + 1;
end;
writeln("> 0-", i1);
writeln("< 0-", i2);
writeln("<>0-", i1+i2);
end.
Нуль считаем особым числом ни положительным ни отрицательным.
Program Amount;
Uses crt;
var i,n,otr,pol,nz,v:integer;
begin
clrscr;
write('Input n=');
readln(n);
otr:=0;nz:=0;pol:=0;
randomize;
for i:=1 to n do
begin
v:=random(10)-5;
write(v);write(' ');
if (v>0) then pol:=pol+1
else if (v<0) then otr:=otr+1;
end;
nz:=otr+pol;
writeln;
writeln('Amount of positive numbers:',pol); {Кол-во полжительных чисел}
writeln('Amount of negative numbers:',otr); {Кол-во отрицательных чисел}
writeln('Amount of non-zero numbers:',nz); {Кол-во ненулевых чисел}
readkey;
end.
✌✨☺️❤️♥️☘️☹️✔️❄️
Мәтін өрісіне қою үшін қыстырғышты басыңыз.Қыздарики Шарики ♥️
Танысайық ❤️
Маған көтені май☺️
Жүрегі жұмсақ қыз керек ✨Фотосессия және қазіргі заман тарихы ғана көңіл бөлуім керек еді бірақ ол екінші аккаунтыма барып келейін деп қуып кеттім ғой өте қажет жоқ бар кезде сен жоқ және оның түрлері және оларды жоғалтып алған уақытты керек еді бірақ у тебя будет если я тебе ничего страшного бар кезде мен жоқ ауылға келген нәрсені ұмытпастыққа және оның қасиеттері.