Помогите пожалуйста срочно?
Помогите пожалуйста срочно.
Помогите пожалуйста срочно?
Помогите пожалуйста срочно.
Помогите пожалуйста, срочно?
Помогите пожалуйста, срочно.
Помогите пожалуйста срочно надо?
Помогите пожалуйста срочно надо.
Помогите пожалуйста, срочно?
Помогите пожалуйста, срочно!
! .
Помогите пожалуйста?
Помогите пожалуйста!
Срочно!
Помогите пожалуйста, срочно надо?
Помогите пожалуйста, срочно надо.
Помогите пожалуйста?
Помогите пожалуйста!
Срочно.
Срочно помогите пожалуйста?
Срочно помогите пожалуйста.
Срочно помогите, пожалуйста?
Срочно помогите, пожалуйста.
Если вам необходимо получить ответ на вопрос Помогите пожалуйста срочно?, относящийся к уровню подготовки учащихся 10 - 11 классов, вы открыли нужную страницу. В категории Информатика вы также найдете ответы на похожие вопросы по интересующей теме, с помощью автоматического «умного» поиска. Если после ознакомления со всеми вариантами ответа у вас остались сомнения, или полученная информация не полностью освещает тематику, создайте свой вопрос с помощью кнопки, которая находится вверху страницы, или обсудите вопрос с посетителями этой страницы.
Uses crt ;
Const
n = 7 ; m = 10 ;
var
a : array[1.
N, 1.
M]of integer ;
b : array[1.
N * m]of integer ;
i, j, k, l : integer ;
begin
clrscr ; for i : = 1 to n do begin writeln ; for j : = 1 to m do begin a[i, j] : = random(100) ; write(a[i, j] : 4) ; end ; end ;
k : = 0 ;
for j : = 1 to m do begin l : = 0 ; for i : = 1 to n do if (a[i, j]> ; = 1)and(a[i, j]< ; = 30)then begin inc(k) ; b[k] : = a[i, j] ; l : = l + 1 ; end ; writeln('j : ', j, ' k : ', l) ; end ;
writeln ;
for i : = 1 to k do write(b[i] : 4) ;
end.