Написать программу в паскале. за ранее . на одномерный массив. 3. даны два массива a и b, состоящих из одинакового числа элементов. найти среднее арифметическое элементов каждогомассива и сравнить эти значения. заполнение массива выберите по своему усмотрению.

uses crt; var  a,b: array [1..100] of integer;   i,k: integer;   sa,sb: real; begin  write('введите количество элементов массивов: '); read(k);   clrscr;   randomize;   writeln('массив а: ');   for i: =1 to k do  begin    a[i]: =random(50)-25;     b[i]: =random(100)-50;     sa: =sa+b[i];     sb: =sb+a[i];     write (a[i]: 4);   end;   writeln; writeln('массив в: ');   for i: =1 to k do    write (b[i]: 4);   writeln;   sa: =sa/k; sb: =sb/k;   writeln ('сумма элементов массива а: ',sa);   writeln ('сумма элементов массива в: ',sb);   if sa> sb then writeln ('ср.(а)> ср.(в)')  else    if sa< sb then writeln ('ср.(а)< ср.(в)')  else writeln ('ср.(а)=ср.(в)'); end.

var

  a,b: array [1..10] of integer;

  i: integer;

  s1,s2: real;

begin

  randomize;

  for i: =1 to 10 do begin

    a[i]: =random(12)-1;

    s1: =s1+a[i];  

    b[i]: =random(9)+1;  

    s2: =s2+b[i];  

    write (a[i],' ');

  end;

  writeln;

  for i: =1 to 10 do write (b[i],' ');

  writeln;

  s1: =s1/10;

  s2: =s2/10;

  writeln ('s1 = ',s1);

  writeln ('s2 = ',s2);  

  if s1> s2 then writeln ('s1> s2') else

  if s1< s2 then writeln ('s1< s2') else writeln ('s1=s2');

  readln;

end.

1 А

2 В

3 С

4 D

5 E

6 F

7 G

8 H

9 I

10 J

Объяснение: