Алгоритм с массивами...

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

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

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

@yanyk1n · 16.04.2010, 20:15

1)

Pascal

uses crt;
var m:array[1..100]of real;
i,n:integer;
f:boolean;
 
begin
 clrscr;
 write('N -> ');
 readln(N);
 write('Введите массив -> ');
 for i:=1 to n do read(m[i]);
 readln;
 f:=false;
 for i:=1 to n do if m[i]>0 then
 begin
  f:=true;
  writeln('Положительное');
  break;
 end else if m[i]<0 then
 begin
  f:=true;
  writeln('Отрицательное');
  break;
 end;
 if not f then writeln('Массив содержит только нули');
 readln;
end.

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

Pascal

uses crt;
var m:array[1..100]of real;
i,n:integer;
f:boolean;
 
begin
 clrscr;
 write('N -> ');
 readln(N);
 write('Введите массив -> ');
 for i:=1 to n do read(m[i]);
 readln;
 f:=false;
 for i:=1 to n-1 do if not ((a[i] mod 2 = 0) and (a[i+1] mod 2 =1) or (a[i] mod 2 = 1) and (a[i+1] mod 2 =0)) then
 begin
  f:=false;
  break;
 end;
 if f then write('YES') else write('NO');
 readln;
end.

@_SulimaN_530 · 18.04.2010, 20:22 **[ТС]**

k1ry4, Помогите решить задачу с помощью процедуры и функций,срочно.
1)Вычислить S=y+t+u, где y=сумма K=1 до m (sqrt(a[k])+a[k]), t=сумма k=1 до m (sqrt(b[k])+b[k]), u=сумма k=1 до m (sqrt(c[k])+c[k]). Векторы a,b,c -заданы.

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

@_SulimaN_530 0 / 0 / 0 Регистрация: 12.04.2010 Сообщений: 15
	18.04.2010, 20:22 [ТС]	3
	k1ry4, Помогите решить задачу с помощью процедуры и функций,срочно. 1)Вычислить S=y+t+u, где y=сумма K=1 до m (sqrt(a[k])+a[k]), t=сумма k=1 до m (sqrt(b[k])+b[k]), u=сумма k=1 до m (sqrt(c[k])+c[k]). Векторы a,b,c -заданы. 0

Опции темы

Алгоритм с массивами...

Решение