
ПОМОГИТЕ С ИНФОРМАТИКОЙ!!!ОЧЕНЬ НУЖНО. Составьте программу: Дана таблица вещ таб B[1:7]. Замените
каждый отрицательный элемент нулем. Дана таблица вещ таб С[1:10]. Найдите максимальный элемент таблицы.

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

Первая часть
Program n_1;
var i:integer; B: array[1..7] of real;
begin
for i:=1 to 7 do begin
read(B[i]);
if B[i]<0 then B[i]:=0;
end;
for i:=1 to 7 do write(B[i]:0:5, ' ');
end.
Вторая часть
Program n_2;
var i:integer; a:real; C: array[1..10] of real;
begin
for i:=1 to 10 do begin
read(C[i]);
end;
a:=C[1];
for i:=1 to 10 do if (C[i]>a) then a:=C[i];
writeln(a:0:10);
end.



К сожалению, я не могу написать полноценную программу, не зная язык программирования, на котором ее нужно написать. Однако я могу предложить общий алгоритм для выполнения задачи на различных языках программирования.
Алгоритм для замены отрицательных элементов таблицы B[1:7] на ноль:
- Создайте цикл для перебора элементов таблицы B[1:7].
- Внутри цикла проверьте каждый элемент таблицы на отрицательность.
- Если элемент отрицательный, замените его на ноль.
- После прохождения цикла, таблица B[1:7] будет изменена согласно заданию.
Алгоритм для поиска максимального элемента таблицы С[1:10]:
- Создайте переменную для хранения максимального элемента.
- Создайте цикл для перебора элементов таблицы С[1:10].
- Внутри цикла сравните каждый элемент таблицы с переменной, содержащей максимальный элемент.
- Если текущий элемент больше, чем максимальный элемент, замените максимальный элемент на текущий элемент.
- После прохождения цикла, переменная с максимальным элементом будет содержать максимальный элемент таблицы С[1:10].
Пример реализации на языке Python:
less# Замена отрицательных элементов таблицы B[1:7] на ноль
B = [-2, 5, -1, 3, -4, 7, 0]
for i in range(len(B)):
if B[i] < 0:
B[i] = 0
print(B)
# Поиск максимального элемента таблицы C[1:10]
C = [2, 5, 8, 1, 10, 4, 7, 3, 6, 9]
max_elem = C[0]
for i in range(1, len(C)):
if C[i] > max_elem:
max_elem = C[i]
print(max_elem)
Надеюсь, это поможет вам решить задачи по информатике!


Топ вопросов за вчера в категории Информатика







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