Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Максимальное и минимальное
Максимальное и минимальное
Помогите пожалуйста сделать практическую работу по Паскалю: Заданы три массива A(M),B(N) и C(Q).Найти максимальное из трех чисел X,Y и Z,где X,Y и Z-средние арифметические значения элементов массивов A,B, и С соответственно. Заранее большое спасибо.
1 | Автор: Lionel2394 | 2014-12-20, 10:05   |  Репутация: [ + 0 ]
var 
    M : integer;
    X,Y,Z  : real;

    
//-------------------------------------------------------------
function ser_znach( var n : integer) : real;
var suma : real;
    i :integer;
    A :  real;
begin

  suma := 0; 
  
  for i := 0 to n -1 do 
  begin
   
   readln( a ); // записуємо масив A
   suma := suma + a ; // сума елементів масива
   
  end;
  
  ser_znach := suma/n ;  // середне

end;
//-------------------------------------------------------------
 
 
begin

  readln( M ); // розмір 1-го масивy
  X := ser_znach( M );  // середне значеня масиву

  readln( M ); // розмір 2-го масивy
  Y := ser_znach( M );  // середне значеня масиву
  
  readln( M ); // розмір 3-го масивy
  Z := ser_znach( M );  // середне значеня масиву

  if (( X > Y ) and ( X > Z )) then writeln( 'X = ', X ) 
  
  else if (( Y > X ) and ( Y > Z )) then writeln( 'Y = ', Y )

  else writeln( 'Z = ', Z );

end.


Verhovny Menko
2 | Автор: Verhovny_Menko | 2014-12-23, 20:37 | Изменено: Verhovny_Menko - Вт, 2014-12-23, 20:43   |  Репутация: [ + 7 ]
В исходном тексте вывести на экран слово, содержащее максимальное количество символов(букв). Разделитель пробел
3 | Автор: dvpvitas | 2015-06-17, 15:37   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Максимальное и минимальное
Страница 1 из 11
Поиск: