Program z1; Var a: array [1..100] of integer; b: array [1..100] of integer; i,j,n,s,m:integer;Begin write('Введите рамер массива - '); readln(n); for i:=1 to n do begin a[i]:=random(2)-0; write (a[i],' '); end; s:=0; j:=1; writeln; for i:=1 to n do if (a[i] = 0) then begin s:=s+1; b[j]:=i; j:=j+1; end; m:=j-1; writeln('Кол-во элементов равнных 0 - ',s); write('Номера этих элементов - '); for j:=1 to m do begin write (b[j],' '); end;End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
