Помогите пожалуйста с информатикой,нужно написать программу в Паскале.
«В одномерном массиве A из n элементов найти максимальный среди всех элементов и заменить нулевые элементы на 30.»
Ответы на вопрос
Ответил krol4atka
1
Ответ:
const n = 20;
var i, max :integer;
A: array[1..n] of integer;
begin
max := 0;
write('Массив A: ');
for i := 1 to n do
begin
A[i] := random(0, 10);
write(A[i], ' ');
if A[i] > max then max := A[i];
end;
writeln();
writeln('Максимальный элемент: ', max);
write('Массив с заменами: ');
for i := 1 to n do
begin
if A[i] = 0 then A[i] := 30;
write(A[i], ' ');
end;
end.
Новые вопросы
Английский язык,
2 года назад
Другие предметы,
2 года назад
Алгебра,
7 лет назад
Математика,
8 лет назад
Математика,
8 лет назад