maxN = индекс макс значения в массиве , minN - миним индекс массива
Через if мы по этапно сравниваем значения , если условия верны то , значения min/max меняется на текущее значения массива
Объяснение:
program d;
var min,max,i,minN,maxN : integer;
mas:array[0..4] of integer;
begin
for i:=0 to 4 do
begin
readln(mas[i]);
end;
min:=mas[0];
minN:=1;
maxN:=1;
max:=mas[0];
for i:=1 to 4 do
begin
if min<mas[i] then begin minN:=i; min:=mas[i] end;
if max>mas[i] then begin maxN:=i; max:=mas[i] end;
end;
mas[maxN]:=min;
mas[minN]:=max;
For i:=0 to 4 do
writeln(mas[i]);
end.
Program Summa;
var
n,
l,
a: integer;
m: integer;
b: integer;
k: integer;
begin
Readln(n);
Readln(l);
a:=n div 10;
m:=l div 10;
b:=n mod 10;
k:=l mod 10;
if (a+b) mod 7=0 then write(n,' ');
if(m+k) mod 7=0 then write(n+l);
End.
Попробуй