#include <iostream>
using namespace std;
int main() {
int n, k=0;
cin>>n;
int arr[n];
for (int i=0; i<n; ++i) {cin>>arr[i]; if (arr[i]%2==0&&(arr[i]<arr[k]||arr[k]%2==1)) k=i;}
cout<<arr[k];
return 0;
}
<em><u>Pascal:</u></em>
var a:array [1..10] of integer;
i:integer;
begin
for i:=1 to n do
begin
write ('A[',i,'] = ');
readln (a[i]);
end;
for i:=1 to 10 do
if a[i] mod 2 = 1 then write (a[i],' ');
end.
<em><u>C++:</u></em>
#include <iostream>
using namespace std;
int main()
{
int a[10];
for (int i = 0; i<10; i++)
{
cout <<"A[" <<i <<"] = '";
cin >>a[i];
}
for (int i = 0; i<10; i++)
if (a[i]%2==1)
cout <<a[i] <<" ";
return 0;
}
<span>Вычислительные таблицы:
1 Программа Excel высчитывать данные в таблице
2 Базы данных, Eccess, 1C, и тд</span>
Var
sum, a,b,c:real;
begin
Readln(a);writeln(a/1000);
read(b);Writeln(b/10000);
end.
Ответ Б
там 32
................................................