Advertisement
venik2405

lab1_4

Oct 1st, 2020
314
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 1.52 KB | None | 0 0
  1. program really_Delete;
  2. Uses
  3.     System.SysUtils;
  4. Var
  5.     N, I, Comp : integer;
  6.     A : array of integer;
  7.     IsCorrect: boolean;
  8.     Begin;
  9.     Writeln('Данная программа позволяет найти произведение элементов массива , стоящих на нечётных местах');
  10.     Repeat
  11.         IsCorrect := true;
  12.         Write('Введите длину массива: ');
  13.         Try
  14.             Readln(N);
  15.         Except
  16.             Writeln('Введите целое число!');
  17.             IsCorrect := false;
  18.         End;
  19.         If (N < 1) and IsCorrect then
  20.         Begin
  21.             Writeln('Введите неотрицательное число');
  22.             IsCorrect := false;
  23.         End;
  24.     Until (IsCorrect);
  25.     SetLength(A, N);
  26.     Dec(N);
  27.     For I := 0 to N do
  28.         repeat
  29.             Iscorrect := True;
  30.             writeln('Введите элемент массива под номером',' ', I+1);
  31.             try
  32.                 readln(a[I]);
  33.             except
  34.                 Writeln('Введите целое число');
  35.                 isCorrect := false;
  36.             end;
  37.         until (IsCorrect);
  38.         Comp := 1;
  39.         for I := 0 to N do
  40.         begin
  41.             if odd(a[i]) then
  42.             Comp := Comp * a[i];
  43.         end;
  44.         write('Произведение элементов массива , стоящих на нечётных местах равно', ' ' , Comp);
  45.         readln;
  46.     End.
  47.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement