
1. Заполнить массив из 20 элементами цифрами от 1 до 20. Вывести его элементы в обратном порядке.
2. Заполнить массив из 10 элементов нечетными числам (команду read не использовать). Вывести массив на экран в строку 3. Заполните массив из 10 элементов случайными числами в интервале от 0 до 100 и подсчитайте отдельно среднее значение всех элементов, которые <50, и среднее значение всех элементов, которые ≥50. 4. Дан целочисленный массив размера 10. Вывести все содержащиеся в данном массиве нечетные числа в порядке возрастания их индексов, а также их количество K. 5. Дан целочисленный массив размера 10. Вывести все содержащиеся в данном массиве четные числа в порядке убывания их индексов, а также их количество K.

Ответы на вопрос

1.
var
a:array [1..20] of integer;
i:integer;
begin
randomize;
for i:=1 to 20 do
begin
a[i]:=random(20)+1;
write(a[i]:4);
end;
writeln;
for i:=20 downto 1 do
write(a[i]:4);
end.
2.
var
a: array [1..10] of integer;
i,j:integer;
begin
randomize;
i:=1; j:=1;
while j<=10 do
begin
a[j]:=i;
i:=i+2;
write(a[j]:4);
inc(j);
end;
end.
3.
var
a:array [1..10] of integer;
min,max,mini,maxi,i:integer;
begin
randomize;
min:=0; max:=0; mini:=0; maxi:=0;
for i:=1 to 10 do
begin
a[i]:=random(100)+1;
write(a[i]:4);
if a[i]<50 then
begin
min:=min+a[i];
inc(mini);
end
else if a[i]=50 then
begin
min:=min+a[i];
inc(mini);
max:=max+a[i];
inc(maxi);
end
else if a[i]>50 then
begin
max:=max+a[i];
inc(maxi);
end
end;
writeln;
writeln('<=50: ', min/mini);
writeln('>=50: ', max/maxi);
end.
4.
var
a:array [1..10] of integer;
i,count:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:4);
end;
count:=0;
writeln;
for i:=1 to 10 do
if a[i] mod 2 = 1 then
begin
inc(count);
write(a[i]:4);
end;
writeln;
writeln('Count: ',count);
end.
5.
var
a:array [1..10] of integer;
i,count:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:4);
end;
count:=0;
writeln;
for i:=10 downto 1 do
if a[i] mod 2 = 0 then
begin
inc(count);
write(a[i]:4);
end;
writeln;
writeln('Count: ',count);
end.



Конечно, вот решения для каждой из задач на языке программирования Python:
- Заполнение массива от 1 до 20 и вывод в обратном порядке:
pythonarray1 = list(range(1, 21))
array1.reverse()
print(array1)
- Заполнение массива нечетными числами и вывод на экран:
pythonarray2 = [2 * i + 1 for i in range(10)]
print(array2)
- Заполнение массива случайными числами, подсчет средних значений:
pythonimport random
array3 = [random.randint(0, 100) for _ in range(10)]
sum_less_than_50 = 0
count_less_than_50 = 0
sum_greater_than_equal_50 = 0
count_greater_than_equal_50 = 0
for num in array3:
if num < 50:
sum_less_than_50 += num
count_less_than_50 += 1
else:
sum_greater_than_equal_50 += num
count_greater_than_equal_50 += 1
average_less_than_50 = sum_less_than_50 / count_less_than_50 if count_less_than_50 > 0 else 0
average_greater_than_equal_50 = sum_greater_than_equal_50 / count_greater_than_equal_50 if count_greater_than_equal_50 > 0 else 0
print("Array:", array3)
print("Average of elements < 50:", average_less_than_50)
print("Average of elements >= 50:", average_greater_than_equal_50)
- Вывод нечетных чисел и их количества с учетом индексов:
pythonarray4 = [3, 8, 1, 6, 5, 4, 7, 2, 9, 10]
odd_numbers = [num for idx, num in enumerate(array4) if num % 2 != 0]
count_odd_numbers = len(odd_numbers)
print("Odd numbers:", odd_numbers)
print("Count of odd numbers:", count_odd_numbers)
- Вывод четных чисел и их количества с учетом индексов:
pythonarray5 = [4, 7, 2, 9, 10, 3, 8, 1, 6, 5]
even_numbers = [num for idx, num in enumerate(array5) if num % 2 == 0]
count_even_numbers = len(even_numbers)
print("Even numbers:", even_numbers)
print("Count of even numbers:", count_even_numbers)
Просто скопируйте и вставьте каждый из приведенных выше кодов в среду выполнения Python, чтобы получить результаты для каждой задачи.


Похожие вопросы

Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili