Заменить каждый элемент массива на квадратный корень данного элемента

@Сергей Новичек · Регистрация: 11.09.2014

Author24 — интернет-сервис помощи студентам

Заменить каждый элемент массива на корень квадратный данного элемента.
(если можно, укажите весь код данной программы)

@CodeR · 15.11.2014, 10:29

Pascal

Var A:array[1..100] of real;
    i,n:integer;
Begin
    Randomize;
    writeln('Исходный массив');
    n:=random(30)+10;
    For i:=1 to n do
    Begin
      A[i]:=random*10;
      write(A[i]:6:2);
    End;
    writeln;
    writeln('Полученный массив');
    For i:=1 to n do
    Begin
      if A[i]>0 then A[i]:=sqrt(A[i]);
      write(A[i]:6:2);
    End;
    readln;
End.

@Сергей Новичек 0 / 0 / 0 Регистрация: 11.09.2014 Сообщений: 13
		1
	Заменить каждый элемент массива на квадратный корень данного элемента 14.11.2014, 23:05. Показов 1580. Ответов 1 Метки нет (Все метки) Заменить каждый элемент массива на корень квадратный данного элемента. (если можно, укажите весь код данной программы) 0

	15.11.2014, 10:29

Опции темы

Заменить каждый элемент массива на квадратный корень данного элемента

Решение