1)Написать программку на языке Паскаль,которая вычисляет среднее арифметическое пяти всех чисел.

1)program zz1;

var  a, s, i:integer; // вводим переменные целого типа

begin

for i:=1 to 5 do // организуем цикл на пять повторений

begin

writeln( введите , i, -ое число );

read(a);  // вводим число

s:=s + a; // добавляем его к сумме

end;

write( среднее арифметическое 5 чисел = , s/5) // выводим ответ

end.

2)program zz1;

var a,b,c,d:integer; // вводим переменную целого типа

begin

write( введите a, b, c );  // вводим с клавиатуры число

read(a,b,c);

d:=b * b - 4 * a * c;

if d lt; 0 then  write( корня квадратного уравнения нет );

if d = 0 then  write( корень квадратного уравнения = ,-b/2*a);

if d gt; 0 then begin writeln(1 корень квадратного уравнения = , -b+sqrt(d)/a*2); write(2 корень квадратного уравнения = , -b-sqrt(d)/a*2);end;

end.