В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1. Количество элементов массива, больших C.
2. Произведение элементов массива, расположенных после максимального по модулю элемента.
3. Преобразовать массив таким образом, чтобы сначала располагались все отрицательные элементы, а потом – все положительные (элементы, равные нулю, считать положительными).
// PascalABC.NET 3.0, сборка 1088 const n=10; // количество вводимых чмсел var a:array[1..n] of integer; i,k,t:integer; begin Writeln('Введите через пробел ',n,' целых чисел'); k:=0; for i:=1 to n do begin Read(t); if Odd(t) then begin Inc(k); a[k]:=t end end; if k>0 then begin Write('Нечетные числа: '); for i:=1 to k do Write(a[i],' '); Writeln end else Writeln('Все введенные числа - четные') end.
В приложении программы в файлах 1. #include <iostream> using namespace std; int main() { setlocale(LC_ALL,"Russian" ); int k, n, sum = 0; cout << "Введите K: "; cin >> k; cout << "Введите N: "; cin >> n;
for(int i = k ; i <= n; i++) { sum = sum + i; }
cout << "Сумма чисел от " << k << " до " << n << " равна " << sum << endl; return 0; }
const
n=10; // количество вводимых чмсел
var
a:array[1..n] of integer;
i,k,t:integer;
begin
Writeln('Введите через пробел ',n,' целых чисел');
k:=0;
for i:=1 to n do begin
Read(t);
if Odd(t) then begin Inc(k); a[k]:=t end
end;
if k>0 then begin
Write('Нечетные числа: ');
for i:=1 to k do Write(a[i],' ');
Writeln
end
else Writeln('Все введенные числа - четные')
end.
Тестовое решение:
Введите через пробел 10 целых чисел
24 137 -53 46 0 -18 35 2 352 1111
Нечетные числа: 137 -53 35 1111