практическое задание по информатике .

#include <iostream>
#include <random>
#include <iomanip>
using namespace std;
short randomize(short = 1, short = 20);
short* create(size_t);
void fill(short*, size_t);
void print(short*, size_t, streamsize = 3);
void replace_even(short*, size_t, short = 0);
int main() {
cout << " N: ";
size_t n;
cin >> n;
short* arr = nullptr;
if (arr = create(n)) {
fill(arr, n);
print(arr, n);
replace_even(arr, n);
print(arr, n);
delete[] arr;
arr = nullptr;
}
cin.sync();
cin.get();
}
short randomize(short a, short b) {
if (a > b) swap(a, b);
uniform_int_distribution<short> rand(a, b);
random_device rnd;
return rand(rnd);
}
short* create(size_t size) {
return new(nothrow) short[size];
}
void fill(short* v, size_t s) {
if (v) for (auto p = v; p != v + s; ++p) *p = randomize();
}
void print(short* v, size_t s, streamsize w) {
if (v) for (auto p = v; p != v + s; ++p) cout << setw(w) << *p;
cout << endl;
}
void replace_even(short* v, size_t s, short src) {
if (v) for (auto p = v; p != v + s; ++p) if (~*p & 1) *p = src;
}

На языке D:

а на Паскале надо? пиши

Program Zadanie;
const
n = 10;
type
TMas1 = array [1..n] of integer;
var
m, i, c: integer;
x: TMas1;
begin
m:=0;
write('Массив - ');
for i:= 1 to n do
begin
m:=random(20);
x[i]:=m;
write(m, ' ');
end;
writeln;

write('Массив изм. - ');
for c:=1 to n do
begin
begin
if x[c] mod 2 = 0 then
x[c]:=0;
end;
write(x[c], ' ');
end;
end.