Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program really_Delete;
- Uses
- System.SysUtils;
- Var
- N, I, Comp : integer;
- A : array of integer;
- IsCorrect: boolean;
- Begin;
- Writeln('Данная программа позволяет найти произведение элементов массива , стоящих на нечётных местах');
- Repeat
- IsCorrect := true;
- Write('Введите длину массива: ');
- Try
- Readln(N);
- Except
- Writeln('Введите целое число!');
- IsCorrect := false;
- End;
- If (N < 1) and IsCorrect then
- Begin
- Writeln('Введите неотрицательное число');
- IsCorrect := false;
- End;
- Until (IsCorrect);
- SetLength(A, N);
- Dec(N);
- For I := 0 to N do
- repeat
- Iscorrect := True;
- writeln('Введите элемент массива под номером',' ', I+1);
- try
- readln(a[I]);
- except
- Writeln('Введите целое число');
- isCorrect := false;
- end;
- until (IsCorrect);
- Comp := 1;
- for I := 0 to N do
- begin
- if odd(a[i]) then
- Comp := Comp * a[i];
- end;
- write('Произведение элементов массива , стоящих на нечётных местах равно', ' ' , Comp);
- readln;
- End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement