Предполагается, что будет введено минимум одно значение.
varmax,a : integer;beginreadln(a);max := a;repeatreadln(a);if (a > max) and (a <> 0) thenmax := a;until a = 0;writeln(max);readln;end.
P.S. Если понравилось решение не забудь отметить как лучшше. ;)
Подробнее - на Znanija.com -
znanija.com/task/1506362#readmore
Const
N = 13;
Var
A:array[1..N] of integer;
i,Min,Max:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=Random(21)-10;
Write(A[i],' ')
End;
WriteLn;
Min:=A[N];
Max:=A[N];
For i:= 1 to N-1 do
Begin
if A[i]>Max then Max:=A[i];
if A[i]<Min then Min:=A[i]
End;
WriteLn('Max = ',Max);
WriteLn('Min = ',Min);
WriteLn('Max - Min = ',Max-Min);
End.
Пример:
Исходный массив: -1 5 -8 -2 3 -2 -3 10 -10 -8 -4 5 -3
Max = 10
Min = -10
Max - Min = 20
Program help;
Var k, l,x,y: integer;
Begin
readln(k,l);
readln (x,y);
if y>k*x+l then
write ('точка лежит над прямой')
else
if y<k*x+l then
write ('точка лежит под прямой')
else
write ('точка лежит на прямой');
End.
#include<iostream.h>
#include<conio.h>
int s[100],i,n,k,t[100],j;
main(){ randomize();
cin>>n;
for(i=0;i<n;i++){
s[i]=random(100000);
cout<<s[i]<<" ";}
cout<<endl;
j=-1;
for(i=0;i<n;i++) {
k=s[i]/10;
if(k%10==0){ j++; t[j]=s[i];}}
if(j==-1)
cout<<"NET NI ODNOGO CISLA KOTORII OTVECEAET TREBOVANIIAM"<<endl;
else for(i=0;i<=j;i++)
cout<<" "<<t[i]<<endl;
getch();}