1. написать программу в паскале, в результате выполнения которой на экране будут выведены 5 строк: меня зовут (фамилия, имя) я учусь в 7 «__» классе гимназии 524 мое хобби периметр прямоугольника равен 30 сегодня ярко светит солнце! 2. в трёх опросах ученик получил оценки. составьте алгоритм и программу, которая определит среднее значение оценок, полученных учеником в трёх опросах. оценки ввести с клавиатуры. результат вывести на экран. 3. написать программу нахождения периметра прямоугольника по известным сторонам a и b (a и b – целые числа, вводимые с клавиатуры)

1. программа "анкета": program anketa; var a,b,d: string; c: char; begin writeln('введите ваши имя и фамилию в именительном падеже: '); readln(a,b); writeln('введите букву класса: '); readln(c); writeln('введите ваше хобби: '); readln(d); writeln('меня зовут ',a,' ',b,'; '); writeln('я учусь в 7 "',c,'" классе гимназии 524; '); writeln('моё хобби - ',d,'; '); writeln('периметр прямоугольника равен 30'); writeln(' сегодня ярко светит солнце! ') end. 2. программа "опросы": program oprosy; var a,b,c: integer; d: real; begin writeln('введите ваши оценки по шкале: '); readln(a,b,c); d: =(a+b+c)/3; writeln('ваша средняя оценка за тесты - ',d,'.'); end. 3. программа "периметр прямоугольника": program perimetr; var a,b,c: integer; begin writeln('введите стороны прямоугольника: '); readln(a,b); c: =(a+b)*2; writeln('периметр прямоугольника = ',c,'.'); end.

Const   k = 20; var   a: array[1..k] of integer;   c, i, n: integer; begin   randomize;   write('введите число элементов массива (не более 20): ');   readln(n);   write('введите целое число с: ');   readln(c);   write('исходный массив: ');   for i : = 1 to n do   begin       a[i] : = random(41) - 20;       write(a[i], ' ')   end;   write(#13#10,'массив-результат: ');   for i : = 1 to n do   begin       if a[i] > 10 then a[i] : = c;       write(a[i], ' ')   end end. тестовое решение: введите число элементов массива (не более 20): 18 введите целое число с: 99 исходный массив: -1 -17 -15 16 12 -12 14 19 -1 18 13 11 -17 -6 -17 -2 20 -14 массив-результат: -1 -17 -15 99 99 -12 99 99 -1 99 99 99 -17 -6 -17 -2 99 -14