На Паскале:
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}')
1 . Какая программа не является электронной г) Word
2. Как называется документ в программе Excel?
б) книга
3. Рабочая книга состоит из…
б) нескольких рабочих листов
4. Наименьшей структурной единицей внутри таблицы является..
б) ячейка
5.
г) картинки
6. Значения ячеек, которые введены пользователем, а не получаются в результате расчётов называются…
в) исходными
7. Укажите правильный адрес ячейки.
б) Р6
8. К какому типу программного обеспечения относятся ЕТ?
в) к прикладному
9 Тест. Формула - начинается со знака…
в) =;
10. Какая ячейка называется активной?
в) заполненная