Сформировать массив 40 целых случайных чисел в диапазоне от минус 40 до 40. напечатать его. напечатать произведение элементов, расположенных между максимальным и минимальным элементами массива
c#

первым человеком, если доверять , кому все таки удалось расшифровать   египетские иероглифы, был французский ученый египтолог жан-франсуа шампольон (1790-1832гг). он постарался составить полный список иероглифов (доступных и понятых им на те времена) и их греческих эквивалентов, создав таким образом основу для перевода всех остальных египетских иероглифических текстов.

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.

1. по буквам

2. по слогам

3. по согласным

4. произношение на оборот

5. по 1ой букве в алфавите. н-р весна в-3-я буква, р-18-я в алфавите

var j, k, l, m : word; a : array [0..27] of integer; {27 потому что максимальная сумма трех цифр 27, т.е. 9+9+9} begin clrscr; writeln ('счастливый билет'); for j: =1 to 27 do a[j]: =0; for j: =0 to 9 do for k: =0 to 9 do for l: =0 to 9 do a[j+k+l] : = a[j+k+l] + 1; m : = 0; for j: =0 to 27 do m : = m + a[j]*a[j]; writeln(m); readln; {это чтобы увидеть результат} end. а если требуется все-таки "лобовое", то можно так m : = 0; for k: =0 to 999999 do begin str(k, ss); ss : = copy('000000', 1, 6 - length(ss)) + ss; {дополняем слева нулями при необходимости} if (ord(ss[1])-48+ord(ss[2])-48+ord(ss[3])-48) = (ord(ss[4])-48+ord(ss[5])-48+ord(ss[6])-48) then inc(m); end; остальное сами.