Кому порешать задачи - пишите сюда

[Пух]

Язык С
Даний вектор A(N). Знайти суму елементів, що розміщені між першим і останнім від’ємним елементом.

uses crt;
const N=5;
var a:array[1..N] of integer;
s,i,tmp,tmp1:integer;
flag:boolean;
begin
clrscr;

for i:=1 to N do
begin                           //ввод массива
write('A[',i,']=');
readln(a[i]);
end;

clrscr;
for i:=1 to N do
begin
if i<N then
write(a[i],',')                   //вывод массива
else
write(a[i]);
end;

i:=1;flag:=false;
repeat
if a[i]<0 then
begin
tmp:=i;
flag:=true;           //поиск номера первого отрицательного єлемента
end
else i:=i+1;
until (flag) or (i=N);

i:=N;flag:=false;
repeat
if a[i]<0 then
begin
tmp1:=i;           //поиск номера последнего отрицательного елемента
flag:=true;
end
else i:=i-1;
until (flag) or (i=0);

s:=0;
for i:=tmp to tmp1 do
s:=s+a[i];
writeln('sum=',s);         //сумма єлементов между первім и последним отрицательнімі єлементами.
readkey;
end.

на паскале...

 

[Lum1x]

Даний масив Х, що складається з n елементів. Сформувати масив Z з елементів масиву Х, значення яких належать відрізку [-5;20]. Знайти їх кількість і суму.
C ili Pascal

 

[Lum1x]

uses crt;
s:=0;
for i:=tmp to tmp1 do
s:=s+a[i];
writeln('sum=',s);         //сумма єлементов между первім и последним отрицательнімі єлементами.
readkey;
end.

на паскале...

Ошибка в этой строчке

 

[vasvas]

Нужна срочная помощь завтро нужно здать
Язык:Си

Даний масив Х, що складається з n елементів. Сформувати масив Z з елементів масиву Х, значення яких належать відрізку [-5;20]. Знайти їх кількість і суму.

помогите оценка очень решающая

 

[Пух]

Ошибка в этой строчке

какая? убери коментарии(они в паскале по другому записіваються). У меня все запускается и даже работает оО
п.с. сумму нужно искать включая данные отрицательные элементы или без них? если без них, то немного переделать нужно.

 

[Пух]

Нужна срочная помощь завтро нужно здать
Язык:Си

Даний масив Х, що складається з n елементів. Сформувати масив Z з елементів масиву Х, значення яких належать відрізку [-5;20]. Знайти їх кількість і суму.

помогите оценка очень решающая

uses crt;
const n=5;
var x,z:array[1..n] of integer;
s,k,i:integer;
begin

clrscr;
for i:=1 to n do
begin
write('x[',i,']=');
readln(x[i]);
end;

clrscr;
write('massiv x:');
for i:=1 to n do
begin
if i<n then
write(x[i],',')
else
write(x[i]);
end;

k:=0;
for i:=1 to n do
begin
if (x[i]>=-5) and (x[i]<=20) then
begin
k:=k+1;
z[k]:=x[i];
end; end;

s:=0;
for i:=1 to k do
s:=s+z[i];

gotoxy(1,2);
write('massiv z:');
for i:=1 to k do
begin
if i<k then
write(z[i],',')
else write(z[i]);
end;

gotoxy(1,4);
writeln('sum=',s);
gotoxy(1,5);
writeln('kol-vo elementov=',k);

readkey;
end.

на паскале...
это такие задачки на 1м курсе?

 

[niger]

да на 1 курсе

вот помогите тоже срочно нужно
Язык СИ
Сформувати масиви У з додатних елементів масиву Х, та Z з від’ємних елементів. Знайти найбільше значення масива У та найменше массива Z.

 

[Пух]

да на 1 курсе

вот помогите тоже срочно нужно
Язык СИ
Сформувати масиви У з додатних елементів масиву Х, та Z з від’ємних елементів. Знайти найбільше значення масива У та найменше массива Z.

тоже самое что и перед єтим біло...

 

[xZ_]

это такие задачки на 1м курсе?

да) но поверь многим это считается уж сильно заумным) самое сложное на первом курсе на мой взгляд будет указатели, разобраться с ними, ну вот и все)

 

[Пух]

да) но поверь многим это считается уж сильно заумным) самое сложное на первом курсе на мой взгляд будет указатели, разобраться с ними, ну вот и все)

указатели я в 10м классе особо и не понял))
ладно, не будем отклонятся от темы =)