Інтернет – це безмежний простір інформації та спілкування, в якому неважко загубитися надовго. І часто трапляється, що почав читати щось потрібне та цікаве та якось непомітно опинився на незнайомому сайті, де читаєш якісь плітки останні півгодини… Або годинами переписуєшся з друзями на «Вконтакті» замість того, щоб зустрітися у дворі. Проте я впевнений, що переваг в Інтернету значно більше. Він допомагає в навчанні. Є дуже корисні сайти, наприклад «Вікіпедія», на якій коротко та в доступній формі викладено матеріали про будь-яке явище, видатну людину чи історичну подію.
x,y:integer;
vt:array[1..4]of integer;
BEGIN
for i:=1 to 4 do begin
write('Введите ',i,'-е число ');
readln(vt[i]);
end;
x:=vt[i];//минимум
y:=vt[i];//максимум
for i:=2 to 4 do begin
if x>vt[i] then
x := vt[i];
if y y := vt[i];
end;
writeln('Минимальное число ', x);
writeln('Максимальное число ', y);
writeln('Разница ', y-x);
END.