массивы. паскаль

@lili.lili · Регистрация: 30.04.2010

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

посмотрите пожалуйсто что не так в этой программе.

Даны два массива: А (10) и В (9) вещественных чисел. Найти и напечатать сумму значений элементов массива А и произведение значений элементов массива В. Увеличить каждый элемент массива имеющего наибольшее кол-во нулей на 10 и вывести измененный массив на экран.

Pascal

program PrArray;
var
A : array [0..9] of Real;
B : array [0..8] of Real;
i : Integer ;
Summa,Mult : Real;
ANull,BNull : Integer;
begin
Randomize ;
for i := 0 to Length(A)-1 do
A[i] := -32768 + Random * (32767+32768 );
for i := 0 to Length(B)-1 do
B[i] := -32768 + Random * (32767+32768 );
Summa := 0;Mult := 1;
ANull := 0; BNull := 0;
for i := 0 to Length(A)-1 do
begin
Summa := Summa + A[i];
if A[i] = 0 then ANull := ANull + 1 ;
end ;
for i := 0 to Length(B)-1 do
begin
Mult := Mult * B[i];
if B[i] = 0 then BNull := BNull + 1 ;
end ;
 
writeln ( 'Summa of Elements of A: ',Summa);
writeln ( 'Mult of Elements of B: ',Mult);
 
writeln ('Array :');
if ANull >= BNull then
for i:= 0 to Length(A)-1 do writeln (A[i]+10,' ')
else
for i:= 0 to Length(B)-1 do writeln (B[i]+10,' ');
 
end.

	06.05.2010, 21:47