Дан массив а[1..5] сколько элементов, равных 0, содержит массив? Вывести номера этих элементов, напишите задачку прошу помогите)
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
