Заменить первый отрицательный элемент нулём

@Ксюшка1993 · Регистрация: 01.01.2012

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

заменить первый отрицательный элемент нулём

@unick12345 · 12.01.2012, 11:37

Pascal

1 2	for i:=1 to n do if a[i]<0 then begin a[i]:=0; break;end;

@Ксюшка1993 · 12.01.2012, 11:45 **[ТС]**

можешь всю написать и это пойдёт для массивов=(

@unick12345 · 12.01.2012, 11:51

Pascal

uses crt;
const n=10;
var a:array[1..n] of integer; i:integer;
begin
clrscr;
randomize;
writeln('Ishodnii masiv');
for i:=1 to n do
begin
a[i]:=random(10)-5;
write(a[i]:2,' ');
end;
writeln;
for i:=1 to n do
if a[i]<0 then begin a[i]:=0; break; end;
writeln('Polucenii masiv');
for i:=1 to n do
write(a[i]:2,' ');
readln;
end.

@Ксюшка1993 0 / 0 / 0 Регистрация: 01.01.2012 Сообщений: 21
		1
	Заменить первый отрицательный элемент нулём 12.01.2012, 11:36. Показов 3920. Ответов 3 Метки нет (Все метки) заменить первый отрицательный элемент нулём 0

@Ксюшка1993 0 / 0 / 0 Регистрация: 01.01.2012 Сообщений: 21
	12.01.2012, 11:45 [ТС]	3
	можешь всю написать и это пойдёт для массивов=( 0

	12.01.2012, 11:51