Вычислить произведение - Pascal ABC (14089)

Формулировка задачи:

Уже весь мозг сморщил, не могу понять правильно сделал или нет=( Вузовский курс программирования уже напрочь из головы вылетел=( То что у меня получилось:
uses crt;
var a:array[1..15] of real;
 b:array[1..15] of real;
var
m,n,i:integer;
max, imax,s: real;
begin
write('введите кол-во элементов массива=');
read(n);
m:=n;
s:=1;
writeln ('massiv a');
for i:=1 to n do 
begin
a[i]:=sin(i);
write (a[i]:6:3,'  ');
end;
writeln ('massiv b');
for i:= 1 to m do
begin
b[i]:=cos(pi+i);
write (b[m]:6:3,'  ');
end;
for i:=1 to n do
begin
s:=s*(a[i]+b[m]);
m:=n-1;
end;
writeln ('произведение = ',s);
max:=a[1];
  for i:=1 to n do 
    begin
{Если найдется элемент, больший МАХ, то МАХ будет равен этому элементу. Одновременно запоминаем индекс промежуточного максимума.}
      if a[i]>= max then
        begin
          max:=a[i]; imax:=i; 
        end;
    end;
{Печатаем максимальный элемент и его индекс.}
  writeln(max, ' номер: ' ,imax);
end.

Код к задаче: «Вычислить произведение - Pascal ABC (14089)»

textual
uses crt;
var a,b:array[1..15] of real;
    m,n,i,imax:integer;
    max,s: real;
begin
repeat
write('введите кол-во элементов массива от 1 до 15 n=');
readln(n);
until n in [1..15];
m:=n;
s:=1;
writeln ('Массив А');
for i:=1 to n do
 begin
  a[i]:=sin(i);
  write (a[i]:8:3);
 end;
writeln;
writeln ('Массив В');
for i:=1 to m do
 begin
  b[i]:=cos(pi+i);
  write (b[i]:8:3);
 end;
writeln;
s:=1;
for i:=1 to n do
s:=s*(a[i]+b[n-i+1]);
writeln ('Произведение = ',s:0:3);
max:=a[1];
imax:=1;
for i:=2 to n do
if a[i]>= max then
 begin
  max:=a[i];
  imax:=i;
 end;
writeln('Максимальный элемент массива А=',max:0:3,' номер=',imax);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

8   голосов, оценка 3.750 из 5


СДЕЛАЙТЕ РЕПОСТ