Составить алгоритм с массивами...

@_SulimaN_530 · Регистрация: 12.04.2010

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

Помогите решить задачки, срочно, пожалуйста...
1) Дан массив действительных чисел x1;x2;...;xn. Выяснить, какое число в массиве встречается раньше - положительное или отрицательное. Если все члены массива равны нулю, сообщить.
2) Дан массив целых чисел а1;a2;...;an. Определить, чередуются ли четные и нечетные числа в массиве.

заранее спасибо...)

@STGE · 12.04.2010, 21:00

1.

Pascal

for i:=1 to n do
begin
a[i]:=random(2)-1;
write(a[i]:3);
end;
writeln;
i:=0;
repeat
Inc(i);
until (a[i]<>0) or (i=n);
if i<>n then
if a[i]>0 then writeln('первым встречается положительное число')
else writeln('первым встречается отрицательное число')
else if i=n then writeln('все элементы массива - нули');

Добавлено через 13 минут
2.

Pascal

u:=true;
for i:=1 to n do
begin
a[i]:=random(19)-9;
write(a[i]:3);
end;
i:=1;
repeat
if not((a[i] mod 2 = 0) and (a[i+1] mod 2 <> 0) or (a[i] mod 2 <> 0) and (a[i+1] mod 2 = 0 )) then
u:=false;
inc(i);
until i=n;
if u=true then writeln('чётные и нечётные числа массива чередуются')
else writeln('чётные и нечётные числа массива не чередуются');

@_SulimaN_530 0 / 0 / 0 Регистрация: 12.04.2010 Сообщений: 15
		1
	Составить алгоритм с массивами... 12.04.2010, 20:40. Показов 1157. Ответов 1 Метки нет (Все метки) Помогите решить задачки, срочно, пожалуйста... 1) Дан массив действительных чисел x1;x2;...;xn. Выяснить, какое число в массиве встречается раньше - положительное или отрицательное. Если все члены массива равны нулю, сообщить. 2) Дан массив целых чисел а1;a2;...;an. Определить, чередуются ли четные и нечетные числа в массиве. заранее спасибо...) 0

Опции темы

Составить алгоритм с массивами...

Решение