Даны три реальных числа. Вычислить квадратный корень из тех, значения которых

Даны три действительных числа. Вычислить квадратный корень из тех, значения которых неотрицательны на PascalABC

Задать свой вопрос
1 ответ
  1. program n_1;
  2. const n = 3;
  3. var arr: array [1..n] of real;
  4. i: integer;
  5. begin
  6. for i := 1 to n do begin
  7. write ('arr[',i,'] := ');
  8. readln (arr[i]);
  9. end;
  10. for i := 1 to n do begin
  11. if arr[i] gt;= 0 then arr[i] := sqrt(arr[i]);
  12. writeln ('arr[',i,'] = ', arr[i]);
  13. end;
  14. end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт