Автор Gtmn задал вопрос в разделе Другие языки и технологии
Напишите программу для поиска наименьшего и наибольшего значения массива A, состоящего из 50 элементов с выводом на печа и получил лучший ответ
Ответ от
Уточните язык программирования на котором осуществить данное действие.
Ответ от Псевдоним[гуру]
const
n=50;
var
a:array[1..n] of integer;
i,min,max:integer;
begin
min:=a[1]; //допустим что первый элемент массива минимальный
max:=a[n]; //допустим что последний максимальный элемент массива
for i:=1 to n do read(a[ i ]);
for i:=1 to n do begin
if a[ i ]< min then
a[ i ]:= min;
if a[ i ]> max then
a[ i]:=max;
end;
writeln('min= '+min, 'max= ' +max);
end.
const
n=50;
var
a:array[1..n] of integer;
i,min,max:integer;
begin
min:=a[1]; //допустим что первый элемент массива минимальный
max:=a[n]; //допустим что последний максимальный элемент массива
for i:=1 to n do read(a[ i ]);
for i:=1 to n do begin
if a[ i ]< min then
a[ i ]:= min;
if a[ i ]> max then
a[ i]:=max;
end;
writeln('min= '+min, 'max= ' +max);
end.
Ответ от Brick Bryan[гуру]
uses crt;
var a:array[1..50] of integer;
i,min,max:integer;
begin
clrscr; randomize;
max:=0; min:=999;
for i:=1 to 50 do
begin
a:=random(100);
if a>max then max:=a;
if a<min>;
write(a,' ');
end;
writeln;
writeln('Maximal=',max);
writeln('Minimal=',min);
readln;
end.
uses crt;
var a:array[1..50] of integer;
i,min,max:integer;
begin
clrscr; randomize;
max:=0; min:=999;
for i:=1 to 50 do
begin
a:=random(100);
if a>max then max:=a;
if a<min>;
write(a,' ');
end;
writeln;
writeln('Maximal=',max);
writeln('Minimal=',min);
readln;
end.
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Напишите программу для поиска наименьшего и наибольшего значения массива A, состоящего из 50 элементов с выводом на печа