2 задачи на одномерные массивы

[spankyham]

теперь так получается:
10
-14
-2
6
18
-2
-9
21
-11
-7
22
3
11
22
Index:2
Index:5
Index:8
Index:9
Index:10
Index:13
Index:15
Index:17
Index:18
Index:19
....так должно быть?

[spankyham]

Сообщение от IT-man

 s:=0;
 for i:=2 to n do
 if a[i]>sqr(a[1]) then s:=s+a[i];
 
 for i:=1 to n do
  write(a:6); - Cannot Read or Write variables of this type.
  writeln;
  writeln('s=',s:6);

мммм....вот

[__STDC__]

не весь массив выведен.. только 14 элементов.. выше прокрути окошечко

[__STDC__]

не a:6, а a[i]:6

[spankyham]

Сообщение от __STDC__

не весь массив выведен.. только 14 элементов.. выше прокрути окошечко

хм...заново запускал всё равно 15 ток....не прокручивается никуда больше....

[__STDC__]

тогда пиши не writeln(a[i]:3); а что-нить типа write(a[i]:3,' | '); тогда все выведутся в строку

[spankyham]

Сообщение от __STDC__

тогда пиши не writeln(a[i]:3); а что-нить типа write(a[i]:3,' | '); тогда все выведутся в строку

фсё, терь 20 выводятся.....только количество фраз Index постоянно меняется...

[__STDC__]

это логично... у тебя каждый раз разный массив.. соответственно кол-во эл-тов удовлетворяющих условию задачи каждый раз меняется

[spankyham]

ога....спасибо!!!!! а во 2ой задаче n чему говоришь приравнивать???

[__STDC__]

чему тебе удобно.. хоть 1000... =) думаю можно оставить как и в первой...