Помогите, пожалуйста, с информатикой!

1)
const N=100;
var
a: array[1..N]of integer;
i,S,m: integer;
begin
Randomize;
for i:=1 to N do a[i]:=-40+Random(90);
S:=0; m:=0;
for i:=1 to N do if (NOT odd(a[i])AND(a[i] MOD 3<>0)then begin
inc(S,a[i]); inc(m);
end;
if m>0 then writeln('Среднее арифметическое = ',S/m) else writeln('Искомых элементов нет');
end.
Остальное делается аналогично.

1) Например, так. Если в массиве числа целые.
var a:array [1..91] of integer;
i, k: integer;
s:real;
begin
for i:=1 to 91 do readln(a[i]);
s:=0;
k:=0;
for i:=1 to 91 do
if (a[i] mod 2 = 0) and (a[i] mod 3 <> 0) then
begin
k:=k+1;
s:=s+a[i];
end;
s:=s/k;
writeln(s);
end.

2) Можно сначала каждое число поделить на 10 (div 10), а затем if a[i] mod 10 =5 тогда в счетчик прибавляешь плюс один. Тут и проще можно, но у меня сегодня голова вообще не работает..

3) Что значит "найти пары"? Номера их вывести или что?

Условия какие-то странные. Я недопоняла, видимо, судя по предыдущим ответам)

Па́сха (греч. πάσχα, лат. Pascha, ивр. ‏פסח‏‎‎‎ [Pesaḥ]), Воскресе́ние Христо́во (греч. Ἡ Ανάστασις τοῦ Ἰησοῦ Χριστοῦ), Светлое Христово Воскресение — древнейший [10] и самый важный христианский праздник [10][11].

Установлен в честь Воскресения Иисуса Христа [10][11] — центра всей библейской истории и фундамента всего христианского учения [12][прим. 1]. В православии статус Пасхи как главного праздника отражают слова «праздников праздник и торжество из торжеств» [13].

В настоящее время дата Пасхи в каждый конкретный год исчисляется по лунно-солнечному календарю, что делает Пасху переходящим праздником.

Еврейское слово Пе́сах обозначает иудейскую Пасху [14]. Оно связано со словом паса́х (ивр. ‏פסח‏‎‎‎ — миновал, прошёл мимо), которое напоминает о том, что Всевышний миновал еврейские дома, уничтожая первенцев Египта [15] (иногда само название праздника толкуют как «минул, обошёл» [12]). Арамейское название праздника, которое звучит как писха [15], вошло в греческий язык, затем перешло в латинский и в последующем распространилось в языках Европы: pâques (фр.), pascuas (исп.), пасха (рус.) и так далее [16].

Ветхозаветная Пасха совершалась в память исхода еврейского народа из египетского плена [12][15], хотя обычай празднования Пасхи появился в эпоху до исхода и первоначально был связан со скотоводством, а позднее с земледелием [17][18][19].

У христиан название праздника приобрело иное толкование — «прехождение от смерти к жизни, от земли к небу» [20]. Церковное

Покачто только 1 и 3, сейчас подгоню 2.

В какой язык вы полезли? Ни разу не Паскаль...

C++
#include
#include
using namespace std;
void main()
{
srand(time(0));
int L[40];
for(int i=0;i<40;i++)
{
L[i]=10+rand()%50;
cout<<L[i]<<" ";
}
cout<<endl;
int newf=0;newl=0;
cout<<"Input new first value: "; cin>>newf;
cout<<"Input new last value: "; cin>>newl;
L[0]=newf; L[39] = newl;
for(int i=0;i<40;i++)
cout<<L[i]<<" ";
cout<<endl;

учебник какой
гдз путина тебе в помощь!

C++
#include
#include
using namespace std;
void main()
{
srand(time(0));
int L[40];
for(int i=0;i<40;i++)
{
L[i]=10+rand()%50;
cout<<L[i]<<" ";
}
cout<<endl;
int newf=0;newl=0;
cout<<"Input new first value: "; cin>>newf;
cout<<"Input new last value: "; cin>>newl;
L[0]=newf; L[39] = newl;
for(int i=0;i<40;i++)
cout<<L[i]<<" ";
cout<<endl;

C++
#include
#include
using namespace std;
void main()
{
srand(time(0));
int L[40];
for(int i=0;i<40;i++)
{
L[i]=10+rand()%50;
cout<<L[i]<<" ";
}
cout<<endl;
int newf=0;newl=0;
cout<<"Input new first value: "; cin>>newf;
cout<<"Input new last value: "; cin>>newl;
L[0]=newf; L[39] = newl;
for(int i=0;i<40;i++)
cout<<L[i]<<" ";
cout<<endl;

xnj pf rkfcc djj,ot

задай вопрос в яндаксе

C++
#include
#include
using namespace std;
void main()
{
srand(time(0));
int L[40];
for(int i=0;i<40;i++)
{
L[i]=10+rand()%50;
cout<<L[i]<<" ";
}
cout<<endl;
int newf=0;newl=0;
cout<<"Input new first value: "; cin>>newf;
cout<<"Input new last value: "; cin>>newl;
L[0]=newf; L[39] = newl;
for(int i=0;i<40;i++)
cout<<L[i]<<" ";
cout<<endl;

хизи

C++
#include
#include
using namespace std;
void main()
{
srand(time(0));
int L[40];
for(int i=0;i<40;i++)
{
L[i]=10+rand()%50;
cout<<L[i]<<" ";
}
cout<<endl;
int newf=0;newl=0;
cout<<"Input new first value: "; cin>>newf;
cout<<"Input new last value: "; cin>>newl;
L[0]=newf; L[39] = newl;
for(int i=0;i<40;i++)
cout<<L[i]<<" ";
cout<<endl;

НЕЗН

хз ваще

не благодари)
C++
#include
#include
using namespace std;
void main()
{
srand(time(0));
int L[40];
for(int i=0;i<40;i++)
{
L[i]=10+rand()%50;
cout<<L[i]<<" ";
}
cout<<endl;
int newf=0;newl=0;
cout<<"Input new first value: "; cin>>newf;
cout<<"Input new last value: "; cin>>newl;
L[0]=newf; L[39] = newl;
for(int i=0;i<40;i++)
cout<<L[i]<<" ";
cout<<endl;

фиг знает

Это же изи!
C++
#include
#include
using namespace std;
void main()
{
srand(time(0));
int L[40];
for(int i=0;i<40;i++)
{
L[i]=10+rand()%50;
cout<<L[i]<<" ";
}
cout<<endl;
int newf=0;newl=0;
cout<<"Input new first value: "; cin>>newf;
cout<<"Input new last value: "; cin>>newl;
L[0]=newf; L[39] = newl;
for(int i=0;i<40;i++)
cout<<L[i]<<" ";
cout<<endl;

задай вопрос вот тут http://znanija.com/

C++
#include
#include
using namespace std;
void main()
{
srand(time(0));
int L[40];
for(int i=0;i<40;i++)
{
L[i]=10+rand()%50;
cout<<L[i]<<" ";
}
cout<<endl;
int newf=0;newl=0;
cout<<"Input new first value: "; cin>>newf;
cout<<"Input new last value: "; cin>>newl;
L[0]=newf; L[39] = newl;
for(int i=0;i<40;i++)
cout<<L[i]<<" ";
cout<<endl

это за какой класс

даже не знаю (

:0 А это за какой класс или по какому учебнику-тетради???)

?

C++
#include
#include
using namespace std;
void main()
{
srand(time(0));
int L[40];
for(int i=0;i<40;i++)
{
L[i]=10+rand()%50;
cout<<L[i]<<" ";
}
cout<<endl;
int newf=0;newl=0;
cout<<"Input new first value: "; cin>>newf;
cout<<"Input new last value: "; cin>>newl;
L[0]=newf; L[39] = newl;
for(int i=0;i<40;i++)
cout<<L[i]<<" ";
cout<<endl;

найди в решебнике

я не шарю

Я так понимаю что в массиве элементы из диапазона от -40 до 50, а сколько их там неизвестно?
решаем первую задачу с предположением что в массиве например 10 элементов:

Uses CRT;
Var a : array [1..10] of integer;
i,k,s : integer;
Begin
ClrScr;
Randomize;
{заполняем массив из 10 элементов случайными числами из диапозона от-40 до 50 и выводим его на экран}
For i:=1 to 10 do Begin
a[i]:=random(91)-40;
Write(a[i],' ');
End;
{Обнуляем счетчик нужных чисел и их сумму}
k:=0;
s:=0;
{перебираем массив и если число то что нужно, то добавляем его в сумму и увеличиваем количество таких чисел}
For i:=1 to 10 do If ((a[i] mod 2)=0) and((a[i] mod 3)<>0) Then Begin
s:=s+a[i];
k:=k+1;
End;

writeln;
{выводим результат}
Write('Ответ=',s/k);
End.

Вроде так...

ну нез даже

C++
#include
#include
using namespace std;
void main()
{
srand(time(0));
int L[40];
for(int i=0;i<40;i++)
{
L[i]=10+rand()%50;
cout<<L[i]<<" ";
}
cout<<endl;
int newf=0;newl=0;
cout<<"Input new first value: "; cin>>newf;
cout<<"Input new last value: "; cin>>newl;
L[0]=newf; L[39] = newl;
for(int i=0;i<40;i++)
cout<<L[i]<<" ";
cout<<endl;

C++
#include
#include
using namespace std;
void main()
{
srand(time(0));
int L[40];
for(int i=0;i<40;i++)
{
L[i]=10+rand()%50;
cout<<L[i]<<" ";
}
cout<<endl;
int newf=0;newl=0;
cout<<"Input new first value: "; cin>>newf;
cout<<"Input new last value: "; cin>>newl;
L[0]=newf; L[39] = newl;
for(int i=0;i<40;i++)
cout<<L[i]<<" ";
cout<<endl;

хз