Помощь в Паскале
задать двумерный массив B[6,6] случайным образом на промежутке от [-25;25]
затем создать новый одномерный массив из элементов меньших 5 получилось все кроме одного: выводит последний символ не правильно и еще вопрос можно ли сделать этот массив меньше чем А[1..36]?? uses crt; Type mas = array [1..6 , 1..6] of integer; var B:mas{ двумер.массив}; A:array[1..36] of integer;{одномер.массив} i,j,k:integer;{индексы массивов} begin clrscr; randomize; for i:=1 to 6 do begin for j:=1 to 6 do begin B[i,j]:=random(50)-25; write(B[i,j]:5); end; writeln; end; writeln; for i:=1 to 6 do begin for j:=1 to 6 do begin if B[i,j]<5 then A[k]:=B[i,j]; if B[i,j]>=5 then A[k]:=0; write(A[k]:4); end; end; readln; end. |
заранее спасибо)
|
Так. А значение параметра k - Пушкин задавать будет? И потом - зачем заполнять массив А нулями? Вроде как в условии это не требуется. Отсюда работающий вариант:
Код:
uses crt; |
ага, спасибо, массив А заполнил нулями т.к. значение к не задал) без этого он мне выводил 36 чисел, а числа которые не были меньше 5 он заменял числом ( предыдущим) которое было меньше 5, поэтому я их сделал 0, так более понятно было))))))
|
Часовой пояс GMT +4, время: 06:14. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.