// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin var s:=ReadLines('in.txt').ToArray; var n:=StrToInt(s[0]); var a:=s[1].ToWords.Select(e->StrToInt(e)).ToArray; var f:=OpenWrite('out.txt'); Writeln(f,n,' - (кол-во чисел)'); foreach var e in a do Write(f,e,' '); Writeln(f); Writeln(f,'Среднее значение четных ', a.Where(x->x.IsEven).Average); Writeln(f,'Среднее значение нечетных ', a.Where(x->x.IsOdd).Average); f.Close end.
Возможный вариант в C++ #include <iostream> int main() { using namespace std; int N; cout << "Enter N: "; cin >> N; int num; int max = 1; int i; for (i = 0; i < N; ++i) { cout << "Enter #" << i + 1 << " number: "; cin >> num; if ((num - 9) % 10 != 0 && num % 3 == 0) { max = num; break; } } for (int j = i + 1; j < N; ++j) { cout << "Enter #" << j + 1 << " number: "; cin >> num; if ((num - 9) % 10 != 0 && num % 3 == 0) if (num > max) max = num; } if (max != 1) cout << "Max number div by 3 and don't end 9: " << max << endl; else cout << "No numbers div by 3 and don't end 9" << endl; return 0; }
program raf105;
const
n = 10; //Размер массива
var
a,b,c: array[1..n] of integer;
x,i,j,b2,c2,min,minpos: integer;
begin
write('Введите число: ');
readln(x);
writeln('Вводите числа по очереди');
for i:=1 to n do
begin
readln(a[i]);
if a[i] > x
then begin
c2:= c2+1;
c[c2]:= a[i];
end
else begin
b2:= b2+1;
b[b2]:= a[i];
end;
end;
for i:=1 to b2 do
begin
min:= b[i];
minpos:= i;
for j:=i to b2 do
if b[j] < min
then begin
min:= b[j];
minpos:= j;
end;
b[minpos]:= b[i];
b[i]:= min;
end;
for i:=1 to b2 do
a[i]:= b[i];
for i:=1 to c2 do
a[i+b2]:= c[i];
write('Вывод: ');
for i:=1 to n do
write(a[i],' ');
end.
PascalABC 3.4.2