Получить число отрицательных членов и число членов, принадлижащих отрезку {1,2}

02.04.2012, 16:05. **Показов** 2023. **Ответов** 1

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

Даны натуральное число n, действительные числа a1,..,an. В последовательности a1,..,an, все не отрицательные члены принадлежат отрезку {1,2}, заменить на единицу. Кроме того получить число отрицательных членов и число членов, принадлижащих отрезку {1,2}

@Севак · 02.04.2012, 16:42

pavlik,

Pascal

uses crt;
var a: array[1..20] of integer;
    i,n,pol,otr: byte;
begin
write('Введите n (не больше 20): ');
repeat
read(n);
until n in[1..20];
write('Массив:            ');
for i:=1 to n do begin
a[i]:=random(5)-2;
write(a[i],' ');
if a[i] in [1..2] then inc(pol);
if a[i]<0 then inc(otr);
end;
 
for i:=1 to n do begin
if a[i] in [1..2] then a[i]:=1;
end;
writeln;
write('Измененный массив: ');
for i:=1 to n do begin
write(a[i],' ');
end;
writeln;
writeln('Отрицательных элементов: ',otr);
writeln('Элементов в диапазоне [1,2]: ',pol);
end.

pavlik
		1
	Получить число отрицательных членов и число членов, принадлижащих отрезку {1,2} 02.04.2012, 16:05. Показов 2023. Ответов 1 Метки нет (Все метки) Даны натуральное число n, действительные числа a1,..,an. В последовательности a1,..,an, все не отрицательные члены принадлежат отрезку {1,2}, заменить на единицу. Кроме того получить число отрицательных членов и число членов, принадлижащих отрезку {1,2}

	02.04.2012, 16:42

Получить число отрицательных членов и число членов, принадлижащих отрезку {1,2}

Решение