Регистрация
Angelina111555
13.09.2020 05:20
Информатика
Есть ответ 👍

Массив состоит из 100 целых чисел. найти разность наибольшего четного и наибольшего нечетного элемента массива.
всё это в паскале

117
140
Посмотреть ответы 2

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

flag4
flag4
4,4(38 оценок)

max1 - индекс максимального четного элемента

max2 - индекс максимального нечетного элемента

var

mas: array[1..100] of integer;

max1,max2,j: integer;

begin

for j: =1 to 100 do

begin

mas[j] : = random(100);

if j=1 then max1 : = j

else

if (mas[j]> mas[max1])and(mas[j] mod 2=0) then max1 : = j;

if j=1 then max2 : = j

else

if (mas[j]> mas[max2])and(mas[j] mod 2=1) then max2 : = j;

write(mas[j],' ');

end;

writeln;

write(mas[max1],'[',max1,'] - ',mas[max2],'[',max2,'] = ',mas[max1]-mas[max2]);

end.

алексей041
алексей041
4,6(5 оценок)
11010010.00112   = 1∙27+1∙26+0∙25+1∙24+0∙23+0∙22+1∙21+0∙20+0∙2-1+0∙2-2+1∙2-3+1∙2-4   = 128+64+0+16+0+0+2+0+0+0+0.125+0.0625 = 210.187510  

Популярно: Информатика