Все отрицательные элементы массива, заменить их квадратами

@KuIII · Регистрация: 10.05.2011

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

дан вещественный массив а1, а2, а...ан Если в этом массиве есть хотя бы 1 элемент меньший чем р, то все отрицательные элементы массива, заменить их квадратами, в противном случае массив а домножить на в.

@napasik · 14.10.2011, 16:35

Pascal

false;
write('Введите Р: ');readln(p);
write('Введите B: ');readln(b);
write('Введите кол-во эл-тов массива А: ');readln(n);
for i:=1 to n do
begin
 r:=random(2);
 if r=1 then a[i]:=random(100) else a[i]:=random(100)*-1;
 if a[i]<p then mp:=true;
end;
 
{Вывод массива}
write('A[',a[1]);
for i:=2 to n-1 do
 write(',',a[i]);
writeln(a[n],']'); 
 
{Проверка на заданное условие}
if mp then 
begin
for i:=1 to n do
 if a[i]<0 then a[i]:=sqr(a[i]);
end
else
begin
for i:=1 to n do
 a[i]:=a[i]*b;
end;
{Вывод измененного массива}
write('A[',a[1]);
for i:=2 to n-1 do
 write(',',a[i]);
writeln(a[n],']'); 
end.

@KuIII · 28.10.2011, 16:22 **[ТС]**

а как выглядит начало программы?

@KuIII 0 / 0 / 0 Регистрация: 10.05.2011 Сообщений: 33
		1
	Все отрицательные элементы массива, заменить их квадратами 14.10.2011, 16:09. Показов 1556. Ответов 2 Метки нет (Все метки) дан вещественный массив а1, а2, а...ан Если в этом массиве есть хотя бы 1 элемент меньший чем р, то все отрицательные элементы массива, заменить их квадратами, в противном случае массив а домножить на в. 0

@KuIII 0 / 0 / 0 Регистрация: 10.05.2011 Сообщений: 33
	28.10.2011, 16:22 [ТС]	3
	а как выглядит начало программы? 0

Все отрицательные элементы массива, заменить их квадратами

Решение