Вывести на экран элементы, расположеные перед первым минимальным . массив, паскаль
Вывести на экран элементы, расположеные перед первым минимальным . массив, паскаль
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var n,i,min,ind:integer;
a:array[1..100] of integer;
begin
writeln('Input "n" and elements of array: ');
read(n);
read(a[1]);
min:=a[1];
ind:=1;
for i:=2 to n do
begin
read(a[i]);
if a[i]
Гостьuses crt;
const N=5;
var a: array [1..N] of integer;
x,min:integer;
begin
for x:=1 to N do
begin
write('a[',x,']:');
readln(a[x]);
end;
min:=1;
for x:=1 to N do
if a[x]
Не нашли ответ?
Похожие вопросы