Avast - один из самых распространенных антивирусов, вобравший в себя все высокопроизводительные технологии для обеспечения одной цели: предоставить вам наивысший уровень защиты от компьютерных вирусов. Данный продукт представляет собой идеальное решение для рабочих станций на базе Windows. Антивирус обеспечивает высокий уровень обнаружения вкупе с высокой эффективностью, что гарантирует 100%-ое обнаружение вирусов "In-the-Wild" и высокий уровень обнаружения троянов с минимальным числом ложных срабатываний. Механизм антивирусного ядра сертифицирован ICSA, постоянно принимает участие в тестах VirusBulletin и получает награды VB100%.
var a:array [1..10] of integer;
maxi,mini,max,min:integer;
Begin
maxi:=2;
mini:=2;
for i:= 1 to 10 do Begin
read(a[i]);
if i=2 then begin
max = a[i]-a[i-1];
mix = a[i]-a[i-1];
end;
if i>2 and max < a[i]-a[i-1] then begin
max = a[i]-a[i-1];
maxi = i;
end;
if i>2 and min > a[i]-a[i-1] then begin
mix = a[i]-a[i-1];
mixi = i;
end;
end;
writeln('min: a[',mini,'] - a[',mini-1,'] = ',min);
writeln('max: a[',maxi,'] - a[',maxi-1,'] = ',max);
End.
Входными данными являются числа 5,2,3.
Результатом является число 10,т.к. P(треуг.)= a+b+c