
Вопрос задан 06.09.2023 в 22:24.
Предмет Информатика.
Спрашивает Поздняков Никита.
Составить подпрограмму,заменяющую все элементы одномерного массива,меньшие заданной величины Т,на
значение этой величины и считающую число таких замен. используя эту подпрограмму,изменить каждый из двух заданных массивов Р и С и вывести на печать тот массив,в кот. Окажется большим число замен.Если же эти числа замен будут равны,отпечатать число замен.задать Т=0.005,Р= (0.001;1.54; -2.75; 0.002; -0.1; 1.2; -0.47) ; С= ( -5.74; 0.0001; 4.1; 7.24; -1.5; 2.9; 0.004 )

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

Отвечает Волкова Вероника.
Const
n=7;
type
V=array[1..n] of real;
procedure mReplace(t:real;var a:V;var k:integer);
var
i:integer;
begin
k:=0;
for i:=1 to n do
if a[i]<t then begin a[i]:=t; Inc(k) end
end;
var
T:real;
i,k1,k2:integer;
P,C:V;
begin
Write('Введите значение T: '); Read(T);
Writeln('Введите элементы массива P');
for i:=1 to n do Read(P[i]);
Writeln('Введите элементы массива C');
for i:=1 to n do Read(C[i]);
mReplace(T,P,k1); mReplace(T,C,k2);
if k1>k2 then
begin
Writeln('Измененнный массив Р'); for i:=1 to n do Write(P[i],' ')
end
else
if k2>k1 then
begin
Writeln('Измененнный массив C'); for i:=1 to n do Write(C[i],' ')
end
else Writeln('Число замен в массивах равно ',k1)
end.
Тестовое решение:
Введите значение T: 0.005
Введите элементы массива P
0.001 1.54 -2.75 0.002 -0.1 1.2 -0.47
Введите элементы массива C
-5.74 0.0001 4.1 7.24 -1.5 2.9 0.004
Измененнный массив Р
0.005 1.54 0.005 0.005 0.005 1.2 0.005
n=7;
type
V=array[1..n] of real;
procedure mReplace(t:real;var a:V;var k:integer);
var
i:integer;
begin
k:=0;
for i:=1 to n do
if a[i]<t then begin a[i]:=t; Inc(k) end
end;
var
T:real;
i,k1,k2:integer;
P,C:V;
begin
Write('Введите значение T: '); Read(T);
Writeln('Введите элементы массива P');
for i:=1 to n do Read(P[i]);
Writeln('Введите элементы массива C');
for i:=1 to n do Read(C[i]);
mReplace(T,P,k1); mReplace(T,C,k2);
if k1>k2 then
begin
Writeln('Измененнный массив Р'); for i:=1 to n do Write(P[i],' ')
end
else
if k2>k1 then
begin
Writeln('Измененнный массив C'); for i:=1 to n do Write(C[i],' ')
end
else Writeln('Число замен в массивах равно ',k1)
end.
Тестовое решение:
Введите значение T: 0.005
Введите элементы массива P
0.001 1.54 -2.75 0.002 -0.1 1.2 -0.47
Введите элементы массива C
-5.74 0.0001 4.1 7.24 -1.5 2.9 0.004
Измененнный массив Р
0.005 1.54 0.005 0.005 0.005 1.2 0.005



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Для выполнения этой задачи, вам потребуется написать программу на языке программирования. Вот пример программы на Python, которая решает вашу задачу:
pythondef replace_and_count(arr, T):
count = 0
for i in range(len(arr)):
if arr[i] < T:
arr[i] = T
count += 1
return count
# Заданные массивы
P = [0.001, 1.54, -2.75, 0.002, -0.1, 1.2, -0.47]
C = [-5.74, 0.0001, 4.1, 7.24, -1.5, 2.9, 0.004]
# Заданная величина T
T = 0.005
# Вызываем функцию для массива P
count_P = replace_and_count(P, T)
# Вызываем функцию для массива C
count_C = replace_and_count(C, T)
# Выводим результаты
if count_P > count_C:
print("Массив P содержит больше замен:", P)
elif count_P < count_C:
print("Массив C содержит больше замен:", C)
else:
print("Число замен в массиве P равно числу замен в массиве C:", count_P)
Этот код сначала определяет функцию replace_and_count
, которая принимает массив и значение T и заменяет все элементы меньше T на T, подсчитывая количество замен. Затем он применяет эту функцию к массивам P и C, сравнивает количество замен и выводит соответствующее сообщение.


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