#include <iostream>
using namespace std;
int main() {
int n,j,mnt,mn,mx;
cout<<"n = "; cin>>n;
int arr[n];
cout<<"array: "; cin>>arr[0];
mn=arr[0]; mx=mn;
for (int i=1; i<n; i++) {
cin>>arr[i];
if (arr[i]<mn) mn=arr[i];
if (arr[i]>mx) mx=arr[i];
}
mnt=mn;
cout<<"j = "; cin>>j;
for (int i=2; i<=j; i++) {
mn=mx;
for (int k=0; k<n; k++)
if ((arr[k]>mnt) && (arr[k]<mn)) mn=arr[k];
mnt=mn;
}
cout<<mn<<endl;
system("pause");
return 0;
}
Ввод - вывод:
n = 10
array: 11 -5 15 -8 13 -10 19 36 5 9
j = 5
9
Var k,m: Integer;
Dat: array[1..11] of integer;
begin
Dat[1]:=20;
Dat[2]:=25;
Dat[3]:=19;
Dat[4]:=25;
Dat[5]:=26;
Dat[6]:=22;
Dat[7]:=24;
Dat[8]:=28;
Dat[9]:=26;
Dat[10]:=21;
Dat[11]:=27;
m:=30;
for k:=1 to 11 do
if Dat[k] <m then
m:=Dat[k];
writeln(m);
end.
Ответ: 19.
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
WriteAllText('out.txt',
ReadAllText('in.txt').ToIntegers.Take(10).Where(t->t>=5).Sum.ToString)
end.
<u>Примечание: если чисел гарантировано 10, то .Take(10) можно убрать</u>
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a, b) := ReadReal2;
if a * b > 0 then Println(a - b)
else Println(a / b)
end.
program raf105;
var
i,n: integer;
begin
write('Введите число: ');
readln(n);
write('Чётные: ');
for i:=1 to n do
if i mod 2 = 0
then write(i,' ');
writeln;
write('Нечётные: ');
for i:=1 to n do
if i mod 2 <> 0
then write(i,' ');
end.
<h3><u>PascalABC 3.4.2</u></h3>