Найти среднее арифметическое элементов каждого и сравнить эти значения.

@Mr_Brown · Регистрация: 19.03.2013

Author24 — интернет-сервис помощи студентам

Я сделал её в паскале и у меня ответ выводится не правильно, 2 массив равен 000 и не работает.Заранее спасибо.

Даны два массива. Найти среднее арифметическое элементов каждого и сравнить эти значения.

@Pomoshnik · 17.04.2013, 12:09

Pascal

uses crt;
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.

@Mr_Brown 0 / 0 / 0 Регистрация: 19.03.2013 Сообщений: 17
		1
	Найти среднее арифметическое элементов каждого и сравнить эти значения. 17.04.2013, 09:44. Показов 2167. Ответов 1 Метки нет (Все метки) Я сделал её в паскале и у меня ответ выводится не правильно, 2 массив равен 000 и не работает.Заранее спасибо. Даны два массива. Найти среднее арифметическое элементов каждого и сравнить эти значения. 0

	17.04.2013, 12:09

Опции темы

Найти среднее арифметическое элементов каждого и сравнить эти значения.

Решение