Ласкаво просимо!

Ласкаво просимо вас на україномовний форум з програмування, веб-дизайну, SEO та всього пов'язаного з інтернетом та комп'ютерами.

Будемо вдячні, якщо ви поділитись посиланням на Replace.org.ua на інших ресурсах.

Для того щоб створювати теми та надсилати повідомлення вам потрібно Зареєструватись.

Сторінки 1

Для відправлення відповіді ви повинні увійти або зареєструватися

1 Тема від sashajuzik 13.12.2012 08:49:53

sashajuzik
Користувач
Поза форумом

Дата реєстрації: 13.12.2012
Повідомлень: 2

Репутація

: 0

Тема: Заповнити масив непарними елементами

Заповнити масив непарними числами натурального ряду 1, 3, 5, 7…
Числа, більші або рівні 5, збільшити удвічі, а від чисел, менших 5, взяти модуль і зменшити удвічі.

2 Відповідь від Torbins 13.12.2012 11:01:14

Torbins
Replace Team
Поза форумом

Дата реєстрації: 07.05.2012
Повідомлень: 3 089

Репутація

: 2282

Re: Заповнити масив непарними елементами

Із чим у вас виникли труднощі?

3 Відповідь від Stroncickiy 27.01.2013 11:10:35

Stroncickiy
Користувач
Поза форумом

Дата реєстрації: 25.01.2013
Повідомлень: 13

Репутація

: 5

Re: Заповнити масив непарними елементами

program  mas;
var
a: array [1..100] of integer;
b: array [1..100] of integer;
k,z:real;    i:integer;
begin
   a[1]:=1;
for i:=2 to 100 do
        begin
        a[i]:=a[i-1]+2;
        end;

for i:=1 to 100 do
begin
if a[i]<5 then  b[i]:= trunc((abs(a[i]))/2);
if a[i]>=5 then b[i]:= 2* a[i];
end;
writeln('----------МАСИВ  А----------');
for i:=1 to 100 do
begin
write(' ',a[i],' ');
end;
writeln;

writeln('----------МАСИВ  B----------');
for i:=1 to 100 do
begin
write(b[i]:2,' ');
end;

end.

Подякували: Voron1

4 Відповідь від Пам'ять не може бути READ 27.01.2013 12:20:10 Востаннє редагувалося Пам'ять не може бути READ (27.01.2013 12:23:26)

Пам'ять не може бути READ
Replace Team
Поза форумом

Дата реєстрації: 08.06.2012
Повідомлень: 2 031

Репутація

: 743

Re: Заповнити масив непарними елементами

Код компілюється нормально,
Результат виконання:

[hanti@root ~]$ ./m
----------МАСИВ А----------
 1  3  5  7  9  11  13  15  17  19  21  23  25  27  29  31  33  35  37  39  41  43  45  47  49  51  53  55  57  59  61  63  65  67  69  71  73  75  77  79  81  83  85  87  89  91  93  95  97  99  101  103  105  107  109  111  113  115  117  119  121  123  125  127  129  131  133  135  137  139  141  143  145  147  149  151  153  155  157  159  161  163  165  167  169  171  173  175  177  179  181  183  185  187  189  191  193  195  197  199 
----------МАСИВ B----------
 0  1 10 14 18 22 26 30 34 38 42 46 50 54 58 62 66 70 74 78 82 86 90 94 98 102 106 110 114 118 122 126 130 134 138 142 146 150 154 158 162 166 170 174 178 182 186 190 194 198 202 206 210 214 218 222 226 230 234 238 242 246 250 254 258 262 266 270 274 278 282 286 290 294 298 302 306 310 314 318 322 326 330 334 338 342 346 350 354 358 362 366 370 374 378 382 386 390 394 398

Не розумію у чому саме проблема.
Маленький нотіс: