Даны три действительных числа. Вычислить квадратный корень из тех, значения которых неотрицательны на PascalABC
Ответы
Ответ дал:
0
- program n_1;
- const n = 3;
- var arr: array [1..n] of real;
- i: integer;
- begin
- for i := 1 to n do begin
- write ('arr[',i,'] := ');
- readln (arr[i]);
- end;
- for i := 1 to n do begin
- if arr[i] >= 0 then arr[i] := sqrt(arr[i]);
- writeln ('arr[',i,'] = ', arr[i]);
- end;
- end.
Вас заинтересует
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад