Задание:
Ан массив целых чисел n=14 заполненный случайным образом числами из промежутка [-15 30] 1) удалить последний четный элемент 2) поменять местами первую ивторую его половины.
Решение:
1) vari,k: integer; a: array [1… 14] of integer; begink: =0; for i: =1 to 14 dobegina[i]: =random (46) -15; write (a[i]: 3); if a[i] mod 2=0 then k: =i; end; if k>0 thenbeginfor i: =k to 13 do a[i]: =a[i]+1; a[14]: =0; end; writeln; for i: =1 to 14 do write (a[i]: 3); end.2) vari,k: integer; a: array [1… 14] of integer; beginfor i: =1 to 14 dobegina[i]: =random (46) -15; write (a[i]: 3); end; for i: =1 to 7 dobegink: =a[i]; a[i]: =a[i+7]; a[i+7]: =k; end; writeln; for i: =1 to 14 do write (a[i]: 3); end.
Знаете другой ответ?