1

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

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

2

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

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

3

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 Востаннє редагувалося Адріян Ігорович (27.01.2013 13:23:26)

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 

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

k,z:real;

Для чого Ви їх оголошуєте, якщо не використовуєте ?

5

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

вибачаюсь ,  просто машинально  ввів  кілька змінних які  в коді програми не потребуються  і забув стерти....

6

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

Не розумію у чому саме проблема.



проблем у мене немає  бо я не автор теми а вирішував її

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

7

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

Hanter, думаю слід більш уважно дивитись на авторів повідомлень.

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

Replace написав:

Hanter, думаю слід більш уважно дивитись на авторів повідомлень.

Дійсно, щось я недогледів.

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