|
Максимальное и минимальное
|
|
|
Помогите пожалуйста сделать практическую работу по Паскалю: Заданы три массива A(M),B(N) и C(Q).Найти максимальное из трех чисел X,Y и Z,где X,Y и Z-средние арифметические значения элементов массивов A,B, и С соответственно. Заранее большое спасибо.
|
|
|
|
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 ]
|
|
|
|
|
В исходном тексте вывести на экран слово, содержащее максимальное количество символов(букв). Разделитель пробел
|
|
|
|
