//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) var a,n,i,min,max:integer; begin min:=maxint; max:=-maxint; write('Число элементов последовательности '); readln(n); for i:=1 to n do begin a:=random(61)-30; if a>max then max:=a; if a<min then min:=a; write(a:4); end; writeln; if max<=(min+25) then writeln ('максимальное ',max ,' превышает минимальное ',min,' не более чем на 25') else writeln ('максимальное ',max ,' превышает минимальное ',min,' более чем на 25'); end.
Тест №1 Число элементов последовательности 3 -9 2 10 максимальное 10 превышает минимальное -9 не более чем на 25
Тест №2 Число элементов последовательности 5 10 -17 13 26 -2 максимальное 26 превышает минимальное -17 более чем на 25
/Ребус
#include<conio.h>
#include<iostream.h>
void main()
{ *int i,j,r;
* long int buk,slo,a[8];
* clrscr();
* for(a[0]=1; a[0]<=3; a[0]++)
* *for(a[1]=0; a[1]<=9; a[1]++)
* * for(a[2]=0; a[2]<=9; a[2]++)
* * *for(a[3]=0; a[3]<=9; a[3]++)
* * * for(a[4]=0; a[4]<=9; a[4]++)
for(a[5]=1; a[5]<=9; a[5]++)
for(a[6]=0; a[6]<=9; a[6]++)
*for(a[7]=0; a[7]<=9; a[7]++)
* * { *buk=a[0]*10000+a[1]*1000+a[2]*100+a[3]*10+a[4];
slo=a[5]*10000+a[6]*1000+a[7]*100+a[3]*10+a[7];
* *if(buk*3==slo)
* *{ r=0; * * * * * * * * * //Проверка того, что
* * *for(i=0; i<8; i++) * * //разным буквам соответствуют
for(j=i+1; j<8; j++) *//разные цифры
*if(a[i]==a[j]) r++;
*if(r==0)cout<<buk<<" + "
* * <<buk<<" + "
* * <<buk<<" = "
* * <<slo<<endl;
* *}
* * *}
getch();