На Паскале:
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}')
from random import randint
# заполняем массив случайными числами
arr = [randint(-10,10) for i in range(20)]
print(arr)
# задание 1
print(f'Сумма элементов первой половины массива {arr[0:10]} равна {sum(arr[0:10])}')
print(f'Сумма элементов второй половины массива {arr[10:20]} равна {sum(arr[10:20])}')
# задание 2
k=1
for i in arr:
if i!=0:
k*=i
print(f'Произведение ненулевых элементов массива равно {k}')
# задание 3
k=0
for i in arr:
if i<0:
k+=1
print(f'Количество отрицательных элементов массива равно {k}')
Данное утверждение верно.