Как написать в питоне: 'Если все числа отрицательные или положительные, то писать что-то'

Объяснение:

Мұғалім оқушыларға 20 таңбадан тұратың мәтінді компьютерде теру тапсырмасын берді. → Мұғалім оқушыларға 20 таңбадан тұратың мәтінді компьютерде теру тапсырмасын берді.

Оқушы мәтінді қуатын 16 таңбадан тұратың алфавитпен терді,ал Болат қуаты 256 таңба болатын алфавитпен терді. → Оқушы мәтінді қуатын 16 таңбадан тұратың алфавитпен терді, ал Болат қуаты 256 таңба болатын алфавитпен терді.

Екі түрлі алфавитпен жазылған ақпарат көлемін анықтаңыз және ерекшелігін түсіндірініз. → Екі түрлі алфавитпен жазылған ақпарат көлемін анықтаңыз және ерекшелігін түсіндірініз.

Ақпарат көлемі → Ақпарат көлемі

На Паскале:

program prog;

var

   a:array[1..20] of integer = (1,3,2,5,3,2,1,3,5,2,6,3,5,6,2,3,4,5,7,6);

   i,c:integer;

begin

   c:=0;

   for i:=1 to 20 do if a[i]>3 then c:=c+1;

   write('Количество дней с температурой воздуха больше 3 градусов: ', c);

end.

На Питоне:

c = 0

a = [1,3,2,5,3,2,1,3,5,2,6,3,5,6,2,3,4,5,7,6]

for i in a:

   if i > 3: c+=1

print(f'Количество дней с температурой воздуха больше 3 градусов: {c}')

Если нужно вводить температуру с клавиатуры:

На Паскале:

program prog;

var

   a:array[1..20] of integer;

   i,c:integer;

begin

   c:=0;

   for i:=1 to 20 do begin

       write('Введите температуру ', i, '-го дня: '); readln(a[i]);

       if a[i]>3 then c:=c+1;

   end;

   write('Количество дней с температурой воздуха больше 3 градусов: ', c);

end.

На Питоне:

c = 0

a = [int(input(f'Введите температуру {i+1}-го дня: ')) for i in range(20)]

print(a)

for i in a:

   if i > 3: c+=1

print(f'Количество дней с температурой воздуха больше 3 градусов: {c}')