Из положительных элементов исходного массива извлечь квадратный корень, отрицательные элементы возвести в квадрат

@Джесика · Регистрация: 17.05.2016

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

Из положительных элементов исходного массива извлечь квадратный корень, отрицательные элементы возвести в квадрат;

как это сделать??

@Fakeoke · 29.10.2012, 21:57

if a[i]>0 then
a[i]:=sqrt(a[i]);
if a[i]<0 then
a[i]:=a[i]*a[i];
ne?

@Джесика · 29.10.2012, 22:18

спасибо огромноеее

Добавлено через 18 минут
а можешь,если не трудно,целиком программу написать?

@domovou2.0 · 29.10.2012, 22:25

Pascal

var
   a:array [1..10000] of real;
   i,n:integer;
begin
Writeln('N= '); readln(n);
for i:= 1 to n do
    begin
    a[i]:=random(20)-9;
    write(a[i],' ');
    if a[i]>0 then
       a[i]:=sqrt(a[i])
    else
       a[i]:=sqr(a[i])
    end;
writeln;
for i:=1 to n do
    write(a[i]:0:3,' ');
readln;
end.

@Джесика 0 / 0 / 0 Регистрация: 17.05.2016 Сообщений: 2
		1
	Из положительных элементов исходного массива извлечь квадратный корень, отрицательные элементы возвести в квадрат 29.10.2012, 21:56. Показов 1165. Ответов 3 Метки нет (Все метки) Из положительных элементов исходного массива извлечь квадратный корень, отрицательные элементы возвести в квадрат; как это сделать?? 0

@Fakeoke 522 / 398 / 213 Регистрация: 28.07.2011 Сообщений: 2,207
	29.10.2012, 21:57	2
	if a[i]>0 then a[i]:=sqrt(a[i]); if a[i]<0 then a[i]:=a[i]*a[i]; ne? 1

@Джесика 0 / 0 / 0 Регистрация: 17.05.2016 Сообщений: 2
	29.10.2012, 22:18	3
	спасибо огромноеее Добавлено через 18 минут а можешь,если не трудно,целиком программу написать? 0

	29.10.2012, 22:25