PascalABC.net
var
i:integer;
a:array[1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(-5,5);
write(a[i]:4);
end;
for i:=1 to 10 do
if a[i]>0 then a[i]:=a[i]+2
else a[i]:=0;
writeln;
writeln('Преобразованный массив:');
for i:=1 to 10 do
write(a[i]:4);
<span>end.</span>
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "Rus");
int n, j;
cout << "введите длину массива ";cin >> n;
int* A = new int[n];
cout << "Введите массив " << endl;
for (int i = 0; i < n; i++) //ввод массива
{
cin >> A[i];
}
for (int i = n - 1; i >= 0; i--)
{
j = i;
while (A[j] == 0 && A[1 + j] != 0 && j + 1 < n)
{
int tmp = A[j + 1];
A[j + 1] = A[j];
A[j] = tmp;
j++;
}
}
cout << "новый массив ";
for (int i = 0; i < n; i++)
{
cout << A[i]<<" ";
}
delete[] A;
return 0;
}
Program n1;
var a,sum,i: integer;
begin
sum:=0;
readln(a);
for i:=1 to a div 2 do if (a mod i) = 0 then
if i mod 2=0 then sum:=sum+i;
if a mod 2=0 then sum:=sum+a;
writeln(sum);
end.