Если в массиве есть хотя бы один член, меньший чем -2, то все отрицательные члены заменить их квадратами

@АльбинКа · Регистрация: 02.12.2009

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

Помогите пожалуйста написать программу!)

Если в данном массиве действительных чисел А1,...,Аn есть хотя бы один член, меньший чем -2, то все отрицательные члены заменить их квадратами.

@starm · 16.12.2009, 23:53

Pascal

program El;
uses crt;
const nmax=20;
var b,a:array[1..nmax] of integer;
    n,m,i,j,k:byte;
begin
clrscr;
write('Количество элементов n=');
readln(n);
for i:=1 to n do
   a[i]:=random(10)-3;
writeln('исходная массив*');
for i:=1 to n do
write(a[i]:4);
writeln;
for i:=1 to n do
if a[i]<-2 then
Begin
for i:=1 to n do
 if a[i]<0 then
 a[i]:=a[i]*a[i];
end;
writeln('получившийся массив');
for i:=1 to n do
write(a[i]:4);
readln;
end.

@АльбинКа 0 / 0 / 0 Регистрация: 02.12.2009 Сообщений: 14
		1
	Если в массиве есть хотя бы один член, меньший чем -2, то все отрицательные члены заменить их квадратами 16.12.2009, 21:07. Показов 2419. Ответов 1 Метки нет (Все метки) Помогите пожалуйста написать программу!) Если в данном массиве действительных чисел А1,...,Аn есть хотя бы один член, меньший чем -2, то все отрицательные члены заменить их квадратами. 0

	16.12.2009, 23:53

Если в массиве есть хотя бы один член, меньший чем -2, то все отрицательные члены заменить их квадратами

Решение