Решите, пожалуйста, задачу по информатике в Паскале ABC! Задан массив, с помощью случайных чисел из 15 элементов, найти максимальный элемент среди положительных, минимальный элемент среди нечетных. Найти максимальный и минималь...
Решите, пожалуйста, задачу по информатике в Паскале ABC!
Задан массив, с помощью случайных чисел из 15 элементов, найти максимальный элемент среди положительных, минимальный элемент среди нечетных. Найти максимальный и минимальный элементы среди нечетных элементов массива. Какое из них стоит раньше?
Гость
Ответ(ы) на вопрос:
Гостьconst
N = 15;
var
mas:array[1..15] of integer;
i, max1, max2, min, c, d:integer;
begin
c:=-1;
max1:=-maxint;
min:=maxint;
max2:=-maxint;
randomize;
for i:=1 to N do
mas[i]:=random(101)-50;
write('Массив: ');
for i:=1 to N do
write(mas[i], ' ');
writeln;
for i:=1 to N do
begin
if (mas[i]>0) AND (mas[i]>max1) then
max1:=mas[i];
if (mas[i] mod 2 <> 0) AND (max2 0) AND (min>mas[i]) then
begin
d:=i;
min:=mas[i];
end;
end;
writeln('Максимальный положительный элемент: ',max1);
writeln('Минимальный нечетный элемент: ',min);
writeln('Максимальный нечетный элемент: ',max2);
if c
Не нашли ответ?
Похожие вопросы