Abc pascal 2.05. дан одномерный массив в(n). найти наименьший элемент одномерного массива, больший заданного числа a и определить его местоположение в массиве.
int main() { list<int>mylist; //Делаем со списком, что хотим mylist.push_back(1); mylist.push_back(2); mylist.push_back(3); mylist.push_back(-4); mylist.push_back(5); for (auto i : mylist) { cout << i << " "; } cout << "\n"; //Удаляем последний отрицательный элемент auto it = mylist.end(); while (*it > 0) { if (it == mylist.begin()) { cout << "Not found.\n"; return 0; } it--; } //Делаем со списком, что хотим mylist.erase(it); for (auto i : mylist){ cout << i << " "; } return 0; }
var b: array of real;
i,n,ll: integer;
max,min,a: real;
begin
write('Введите длину массива: ');
readln(n);
write('Введите число a: ');
readln(a);
setlength(b,n);
writeln('Массив B: ');
for i:=0 to n-1 do
begin
b[i]:=random(3*n);
write(b[i],' ');
end;
writeln;
min:=b[0];
max:=a;
for i:=0 to n-1 do
if min>b[i] then min:=b[i]
else if max<b[i] then begin
max:=b[i];
ll:=i;
end;
writeln('Наименьший элемент массива - ',min);
writeln('Элемент, больший числа ',a,' - ',max,' - находится в ',ll+1,' месте');
end.
Можете вместо real типа данных использовать также и integer. Просто неизвестно какие данные будут использоваться во время проверки