Примеры исполнителей:
- Человек;
- Животное;
- Техническое устройство.
83531можна так а можна просто перевернути
C++:
#include < iostream >
using namespace std;
int a[10];
int main() {
for(int i = 0; i < 10; ++i){
cin >> a[i];
}
for(int i = 0; i < 10; ++i){
if(!(a[i]%2)) a[i] *= 2;
if((i+1)%2) a[i] /= a[0];
}
for(int i = 0; i < 10; ++i){
cout << a[i];
}
return 0;
}
(уберите пробелы до и после iostream)
Uses crt;
const n=15;
var a : array [1..99] of integer;
i:integer;
begin writeln('исходный массив:');
for i:=1 to n do //заполнение массива случайными числами
begin a[i]:=random(71)-15;
write(a[i],' ');
end;
writeln;
writeln('отсортированный массив:');
for i:=1 to n do begin // Проверка на чётность
if a[i] mod 2=0 then
write(a[i],' ');
end;
end.
Uses Drawman;
procedure Berry;
begin
field(14, 13);
topoint(2, 1);
pendown;
topoint(1, 2);
topoint(1, 3);
topoint(2, 4);
topoint(3, 4);
topoint(4, 3);
topoint(4, 2);
topoint(3, 1);
topoint(2, 1);
penup;
topoint(6, 1);
pendown;
topoint(5, 2);
topoint(5, 3);
topoint(6, 4);
topoint(7, 4);
topoint(8, 3);
topoint(8, 2);
topoint(7, 1);
topoint(6, 1);
penup;
end;
procedure Leaf;
begin
topoint(3,4);
pendown;
topoint(6,10);
topoint(4,12);
topoint(2,12);
topoint(4,10);
topoint(8,10);
topoint(10,8);
topoint(8,8);
topoint(6,10);
topoint(6,4);
end;
begin
Berry;
Leaf;
end.