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.
Ответ:
Объяснение:
Запишем триады:
001 111 100 000 - это в восьмеричной системе 1740₈ - наименьшее число
111 110 000 000 - это в восьмеричной системе 7600₈ - наибольшее число
program chislo;
const
n=5;
var
a: array [1..n] of integer;
i,s : integer;
begin
randomize;
s:=1;
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:4);
end;
writeln;
for i:=1 to n do
if a[i] mod 5 = 0 then
s:=s*a[i];
if s=1 then
writeln('Нет чисел кратных пяти')
else
writeln('Произведение чисел кратных пяти: ',s);
end.
Нач.
ввод R,A
если А>или= , то "треугольник поместится" , иначе "не поместится".
конец.
овал
параллелограмм
ромб
2 параллелограмма ( в одном поместится в другом нет)
овал
Две задачи в одной - в приложении к ответам.