1)вывести массив 44 1 3 5 7 1 3 5 7 1 3 5 7 1 3 5 7 2)массив 44 0010 0100 0000 1100 подсчитать количество нулей и единиц 3)случайным образом вывести массив 5*5 (50) a[i,j]: = random (50); сумму элементов массива

197

386

Посмотреть ответы 2

Ответы на вопрос:

КлубВинксРоссия17

Информатика

4,6(51 оценок)

Program dfg; vars: real; o,k: integer; f,w,r,e: array[1..10] of integer; i,t,x,g,h,j,u,y,l,d: integer; beginh: =0; d: =0; o: =1; k: =1; write('массив1= '); writeln(); for x: =1 to 4 do begin for i: =1 to 4 do beginr[i]: =random(10); write(r[i]); e[i]: =o*r[i]; o: =o*10; u: =0+e[i]; if r[i]=0 thenh: = h+1; if r[i]=1 thend: =d+1; end; writeln(); end; writeln(); writeln(); write('массив2='); writeln(); randomize; for x: =1 to 4 do begin for i: =1 to 4 do beginr[i]: =random(10); write(r[i]); e[i]: =o*r[i]; o: =o*10; u: =0+e[i]; if r[i]=0 thenh: = h+1; if r[i]=1 thend: =d+1; end; writeln(); end; writeln(); writeln('нули = ',h); writeln('единицы = ',d); end.