Помогите решить задачу по информатике!

[Айами]

Завтра сдавать зачёт, а я уже со школы всё позабыла!

Короче задачи такие:
1. Дан одномерный массив целых чисел, состоящий из 23 элементов.
а) найти количество нечетных элементов массива
б) заменить элементы меньше 10 числом 2.

2. Составьте программу обмена местами второго и пятого элементов второго с столбца матрицы B(N,N)

Задачи по Pascal. Спасайте!

[Closed]

Айами, давай я тебе сделаю твои, а ты мне - мои?

[ДУРМАН]

Паскаль уже не помню
на С++ могу

[Canek]

вот первая:
program gt1;
uses crt;
var mass:array[1..23] of integer;
i,t:integer;
begin
clrscr;
randomize;
t:=0;
for i:=1 to 23 do
begin
mass[i]:=random(99);
if ((mass[i])mod(2))<>0 then t:=t+1;
write(mass[i],' ');
end;
writeln;
for i:=1 to 23 do
begin
if mass[i]<10 then mass[i]:=2;
write(mass[i],' ');
end;
writeln;
writeln('kol-vo. nechetnih alementon=',t);
readkey;
end.

[ДУРМАН]

во второй задаче по идее должны быть фиксированные N
так как динамических массивов Паскаль не поддерживает

[ДУРМАН]

хотя вот и вторая:
но ! компилятора Паскаля нет
чисто на интуицию пишу


Паскаль

uses crt;
var
a:array[1..10,1..10] of integer;
c,i,j:integer;
begin
clrscr;
for i:=1 to 10 do begin
for j:=1 to 10 do begin
a[i,j]:=random(9);
write(' ',a[i,j],' ');
end;
writeln;
end;
writeln;writeln;
c:=a[2,2];
a[2,2]:=a[5,2];
a[5,2]:=c;
for i:=1 to 10 do begin
for j:=1 to 10 do begin
write(' ',a[i,j],' ');
end;
writeln;
end;
end.

Программу можно проверить скомпелировав на С++ следующий код
С++

#include <vcl.h>
#pragma hdrstop
#include <stdio.h>
#include <time.h>
#include <conio.h>
#pragma argsused
main()
{
srand(time(NULL));
int i,j,c;
int A[10][10] ;
for (i=0;i<=9;i++){
for (j=0;j<=9;j++){
A[i][j]=rand()%9;
printf(" %d ", A[i][j]);
}
printf("\n\n");
}
printf("\n\n");
c=A[1][1];
A[1][1]=A[4][1];
A[4][1]=c;
for (i=0;i<=9;i++){
for (j=0;j<=9;j++){
printf(" %d ", A[i][j]);
}
printf("\n\n");
}
getch();
}