Создать проект, в котором из списка чисел нужно удалить
элементы, значения которых равны 35 или 65. Вывести на экран количество
удаленных элементов и вывести обновленный список. список заполнить
случайными числами.
элементы, значения которых равны 35 или 65. Вывести на экран количество
удаленных элементов и вывести обновленный список. список заполнить
случайными числами.
More Questions From This User See All
Answers & Comments
Ответ:
var i,n,x:integer;
a:array[1..100] of integer;
begin
x:=0;
for i:=1 to 100 do begin
a[i]:=random(100);
end;
writeln('Исходный список случайных чисел:');
writeln(a);
for i:=1 to 100 do begin
if (a[i]=65) or (a[i] = 35) then
x:=x+1;
if (a[i]=65) or (a[i] = 35) then
a[i]:=0;
end;
writeln();
writeln('Количество удалённых элементов =', ' ', x);
writeln();
writeln('Отредактированный список случайных чисел:');
writeln(a);
end.