1. дан массив. заменить элементы с нечетными номерами на квадраты их номеров. 2. найти произведение всех элементов массива, меньших 15 3. вывести на экран 30 членов арифметической прогрессии, где a[1]=5 и d=3 s(n)=2a[1]+(d(n-1)/2)*n

Вот так пойдет? дан массив. заменить элементы с нечетными номерами на квадраты их номеров. program tt; uses wincrt; type  tmas=array[1..100] of real; var  d,a: tmas;   i,j,n: byte; procedure enter_d(n: byte; var d: tmas); begin   randomize;   for i: =1 to n do begin     d[i]: =random(40);     write(d[i]: 0: 0,' ');   end; writeln; end; procedure form_a(n: byte; d: tmas; var a: tmas); begin   for i: =1 to n do begin     if odd(i)=true then a[i]: =d[i]/i     else a[i]: =sqr(d[i]); end; end; procedure show_a(a: tmas); begin   for i: =1 to n do write(a[i]: 0: 2,' '); end; end;   begin  clrscr;   writeln('введите размер массива: ');   readln(n);   enter_d(n,d);   form_a(n,d,a);   show_a(a); end.

Const  mas : array [0..6,0..8] of string = (('иванов иван иванович         ', '1', '2', '3', '1', '5','3', '3', '2'),                                      ('петров петр петрович         ', '5', '5', '5', '4', '5','5', '5', '5'),                                      ('сидаров сидор сидорович     ', '3', '2', '3', '2', '2','2', '2', '1'),                                               ('алексеев алексей алексеевич ', '1', '2', '1', '1', '2','2', '2', '5'),                                      ('сергеев сергей сергеевич     ', '2', '2', '5', '5', '5','5', '2', '3'),                                      ('степанов степан степанович   ', '5', '5', '5', '4', '5','5', '5', '5'),                                      ('давыдов давид давидович     ', '3', '3', '3', '3', '3','3', '3', '3'));                               var sr: real; // средний     b: real; begin  writeln('');   writeln('|             фио             |',' 1 |',' 2 |',' 3 |',' 4 |',' 5 |',' 6 |',' 7 |',' 8 |',' ср. |');   writeln('');   for var i: =0 to 6 do begin    write('|'+mas[i,0]+'|');       sr: =0;     for var j: =1 to 8 do begin    write(' '+mas[i,j]+' |');     double.tryparse(mas[i,j],b); // строку в число    sr: =sr+b;     end;     sr: =sr/8;     write(sr: 5: 3);     write('|');     writeln;   end;   writeln('');   end.

Здравствуй Дедушка Мороз!

Меня зовут Владик и мне 10 лет. Я учусь в школе: как говорит мама, не очень хорошо, но я стараюсь.

Мама воспитывает нас с маленьким братом Никитой сама и очень устает на работе, поэтому я ей как могу. Я очень люблю гулять на улице, кататься на велосипеде и самокате, купаться на море и играть в компьютерные игры. Ты каждый год присылаешь мне подарки и всегда те, которые я и хотел тебе за это. Ребята на улице говорят, что тебя не существует, но я не верю. Подари мне на Новый год гироскутер, моему маленькому братику – самокат с божьей коровкой, а маме – хорошего мужа, папу и здоровья. Поздравляю тебя с Новым годом и желаю, чтобы ты никогда не болел и получал хорошую пенсию. До встречи в следующем году.

До свиданья! Твой Владик.

Объяснение: