Question

Создать проект, в котором из списка чисел нужно удалить
элементы, значения которых равны 35 или 65. Вывести на экран количество
удаленных элементов и вывести обновленный список. список заполнить
случайными числами.

Answer 1

Ответ:

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.