10 . pascal abc. даны два массива. написать программу вычисляющую среднее арифметическое элементов каждого массива и сравнить эти значения.

попробуй  

programm dima;

var

m1: array[1..50]of integer;

m2: array[1..50]of integer;

n1,n2,i: integer;

arifm1,arifm2: real;

 

 

begin

  writeln('vvedite rozmeri masivov');

    readln(n1,n2);

    randomize;

    writeln('masiv 1: ');

    for i : =1 to n1 do

    begin

    m1[i]: =random(50);

    write(m1[i],' ');

    end;

    writeln;

    writeln('masiv 2: ');

    for i: =1 to n2 do

      begin

    m2[i]: =random(60);

    write(m2[i],' ');

    end;

    for i : =1 to n1 do

      arifm1: = arifm1+m1[i];

      arifm1: =arifm1/n1;

 

      for i : =1 to n2 do

      arifm2: = arifm2+m2[i];

      arifm2: =arifm2/n2;

      writeln;

      if arifm1=arifm2 then

        writeln('seredne arifmetichne rovnie')

        else

          if arifm1> arifm2 then

            writeln('seredne arifmetiche 1 masiva bilche')

            else

            writeln('seredne arifmetiche 2 masiva bilche');

  end.

   

 

A= int( b = int( if (a > b):       if (a%5 == 0):             print(a,' кратно пяти')       else:             print(a,' не кратно пяти') else:       if (b%5 == 0):             print(b,' кратно пяти')       else:             print(b,' не кратно пяти')