Посчитать кол-во нулей и заменить в массиве все элементы на 5.[1,10]. Pascal
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Долаан Куулар
const n=10;
var a:array[ 1 ... n] of integer;
i, k: byte;
begin
k:=0;
for i: = 1 to n do
a[i]:=random (100) ;
writeln ('Исходный массив: ') ;
for i: = 1 to n do
write (a[i],' ') ;
writeln (#10) ;
for i: = 1 to n do
if a[i] = 0 then
inc (k) ;
for i: = 1 to n do
a[i]:=5;
writeln ('Новый массив: ') ;
for i: = 1 to n do
write (a[i],' ') ;
writeln (#10) ;
writeln ('Количество нулей: ', k) ;
end.
var a:array[ 1 ... n] of integer;
i, k: byte;
begin
k:=0;
for i: = 1 to n do
a[i]:=random (100) ;
writeln ('Исходный массив: ') ;
for i: = 1 to n do
write (a[i],' ') ;
writeln (#10) ;
for i: = 1 to n do
if a[i] = 0 then
inc (k) ;
for i: = 1 to n do
a[i]:=5;
writeln ('Новый массив: ') ;
for i: = 1 to n do
write (a[i],' ') ;
writeln (#10) ;
writeln ('Количество нулей: ', k) ;
end.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
