1)заполните массив случайными числами до n. 2)заполните массив нат. рядом чисел - 1, 2, . 3)заполните массив с клавиатуры. 4)среднее арифметическое элементов, которые кратны 2. быстрее пож

Const n=10; var i,s,k: integer;         a: array [1..n] of integer; begin  for i: =1 to n do begin                            // 1)  //случайные числа                              a[i]: =random(20); //используя функцию randomize генерируем случайные числа                                 write(a[i],' ');                             //2)натур. ряд чисел                              a[i]: =i;     //присваиваем элементу массива его номер                                write(a[i],' ');                             //3)заполнить с клав.                              write('введите ',i,' число массива ');                             readln(a[i]);                               //4)  сред. ариф. кратн 2                              a[i]: =random(20);     //создадим рандомный массив                               write(a[i],' ');     // выведем на экран                              if a[i] mod 2 = 0 then begin //если кратно 2,                                                                 s: =s+a[i];     //считаем сумму всех чисел кратных 2                                                                 k: =k+1;       // считаем кол-во таких чисел                                                                end;                               end; //2 стоки ниже относятся только к 4 пункту    writeln;   writeln('среднее арифметическое элементов, кратных 2 = ',s/k); //ниже относится к ручному вводу  writeln;   for i: =1 to n do write(a[i],' '); end.как-то так) старался некоторые моменты пояснять комментариями

Var a,s,n: integer; begin writeln('введите целое число'); readln(a); s: =0; n: =0; while a< > 0 do     begin     s: =s+a mod 10;     n: =n+1;     a: = a div 10     end; writeln('sr = ',s/n); end. var a,s: integer; begin writeln('введите целое число'); readln(a); s: =0; while a< > 0 do     begin     if (a mod 10) mod 3 = 0 then s: =s+a mod 10;     a: =a div 10     end; writeln('s = ',s); end. var a,m: integer; begin writeln('введите целое число'); readln(a); m: =9; while a< > 0 do     begin     if a mod 10 < m then m: = a mod 10;     a: =a div 10     end; writeln('min = ',m); end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

uses crt;

Var A, B, C, D, X, X1, X2 : Real;

Begin

Writeln ('Введите коэффициенты уравнения (A, B, C) ');

readln(a,b,c);

If A=0 Then

  If B=0 Then

             If C=0 Then Writeln('X - любое число')

                 Else Writeln('Корней нет! ')

       Else

       Begin

       X:=-C/B;

       Writeln('X=',X:8:3);

       End

  Else

  Begin

  D:=B*B-4*A*C;

  If D<0 Then Writeln ('Корней нет! ')

     Else

     Begin

     X1:=(-B+SQRT(D))/2/A;

     X2:=(-B-SQRT(D))/2/A;

     Writeln ('X1=', X1:8:3, ' X2=',X2:8:3);

     End;

  End;

End.

Объяснение:

Это код для решения квадратных уавнений