Pascal:
var a:array [1..5] of real;
i,max,min:integer;
begin
readln (a[1]);
max:=a[1];
min:=a[1];
for i:=2 to 5 do
if a[i]>max then max:=a[i] else
if a[i] writeln ('Max: ',max);
writeln ('Min: ',min);
end.
C++:
#include
using namespace std;
int main()
{
int a[5],max,min;
cin >>a[0];
max = a[0];
min = a[0];
for (int i = 1; i<5; i++)<br> if (a[i]>max)
max = a[i];
else if (a[i] min = a[i];
cout <<"Max: " <<max <<endl<br> <<"Min: " <<min <<endl;<br> return 0;
}