Помогите выполнить задание

[Dunn]

Спасибо Тебе огромное!!!! ТЫ меня спас !!!!

[capta1n]

Обращайся всегда)

[Dunn]

Up Привет не поможете ещё чуть чуть? Задали такое же задание но с другой задачей. Вот задача :Вычислить квадратный корень из произведения модулей чётных элементов.
Заранее благодарен за помощь

[capta1n]

program mas;
const
 N = 10;
var
 A : array [1..N] of integer;
 pr : word;
 i : byte;
begin

  writeln ('Zapolnite massiv: ');
  for i:=1 to N do
  begin
    write ('A[',i,']=');
    readln (A[i])
  end;

  write ('Vash massiv: ');
  for i:=1 to N do write (A[i],'|');

  pr:=1;
  for i:=1 to N do
   if not odd(A[i]) then pr:=pr*abs(A[i]);

  writeln ('Proizv.= ',pr);

  writeln ('Kv. koren''= ',sqrt(pr):0:2);
  readln

end.

[Dunn]

спасибо!!!

[Dunn]

Сообщение от capta1n

program mas;
const
 N = 10;
var
 A : array [1..N] of integer;
 pr : word;
 i : byte;
begin

  writeln ('Zapolnite massiv: ');
  for i:=1 to N do
  begin
    write ('A[',i,']=');
    readln (A[i])
  end;

  write ('Vash massiv: ');
  for i:=1 to N do write (A[i],'|');

  pr:=1;
  for i:=1 to N do
   if not odd(A[i]) then pr:=pr*abs(A[i]);

  writeln ('Proizv.= ',pr);

  writeln ('Kv. koren''= ',sqrt(pr):0:2);
  readln

end.

Спасибо Тебе огромное

[capta1n]

а отзыв?

[Dunn]

Сообщение от capta1n

а отзыв?

Пишет что не могу написать отзыв, надо ещё кому нибудь написать, я другим писал, всё равно тоже самое пишет =(((( Попозже ещё постараюсь написать. А программа нормально работает. Огромное спасибо Тебе!!!!!!!!!

[Madmozavr]

А как эта задача будет выглядеть в Visual Basic? мне просто тоже нужно для института.