4:
var a: array [1..3] of integer;
i,min,max : integer;
begin
for i:= 1 to 3 do
begin
write('a[',i,'] = ');
read(a[i]);
writeln;
end;
min:= a[1];
max:= a[1];
for i:= 1 to 3 do
begin
if a[i] < min then
begin
min:= a[i];
end;
end;
for i:= 1 to 3 do
begin
if a[i] > max then
begin
max:= a[i];
end;
end;
writeln('min = ',min);
writeln('max = ',max);
end.
5:
var a: array [1..5] of integer;
i,max : integer;
begin
for i:= 1 to 5 do
begin
write('a[',i,'] = ');
read(a[i]);
writeln;
end;
max:= a[1];
for i:= 1 to 3 do
begin
if a[i] > max then
begin
max:= a[i];
end;
end;
writeln('max = ',max);
end.
4:
var a: array [1..3] of integer;
i,min,max : integer;
begin
for i:= 1 to 3 do
begin
write('a[',i,'] = ');
read(a[i]);
writeln;
end;
min:= a[1];
max:= a[1];
for i:= 1 to 3 do
begin
if a[i] < min then
begin
min:= a[i];
end;
end;
for i:= 1 to 3 do
begin
if a[i] > max then
begin
max:= a[i];
end;
end;
writeln('min = ',min);
writeln('max = ',max);
end.
5:
var a: array [1..5] of integer;
i,max : integer;
begin
for i:= 1 to 5 do
begin
write('a[',i,'] = ');
read(a[i]);
writeln;
end;
max:= a[1];
for i:= 1 to 3 do
begin
if a[i] > max then
begin
max:= a[i];
end;
end;
writeln('max = ',max);
end.
Pascal ABC
Объяснение:
function Armstrong(isarm: longint): boolean;
var m, p, s: integer;
a, b: array[1..100] of integer;
begin
s := 0;
m := isarm;
p := 0;
while m <> 0 do begin
inc(p);
a[p] := m mod 10;
m := m div 10
end;
for var i := 1 to p do begin
b[i] := 1;
for var j := 1 to p do
b[i] *= a[i];
s += b[i];
end;
if s = isarm then Armstrong := true else Armstrong := false;
end;
var kol: integer;
begin
WriteLn('Введите размер массива: '); var n := ReadInteger;
WriteLn('Введите элементы массива по одному: '); var a := ReadArrInteger(n);
WriteLn('Числа Армстронга: ');
for var i := 0 to n - 1 do
if Armstrong(a[i]) then begin
Write(a[i], ', '); inc(kol);
end;
WriteLn();
WriteLn('Количество чисел Армстронга в массиве равно ', kol);
end.