Удалить в массиве все числа в которыхх последняя цифра 5.
Прграмма, которая организует ввод с клавиатуры массива натуральных чисел, и удаляет в нем все числа в которых последняя цифра 5. Вывести массив. Вспомогательным массивом пользоваться запрещено.
Решение:
program msv;
uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
n,i,j,k:byte;
x:integer;
BEGIN
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите ',n,' целых чисел, в том числе оканчивающихся на 5:');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
i:=1;
while i<=n do
if a[i] mod 10=5 then
begin
for j:=i to n-1 do
a[j]:=a[j+1];
n:=n-1;
end
else i:=i+1;
writeln('Массив без чисел, оканчивающихся на 5:');
for i:=1 to n do
write(a[i],' ');
readln;
END.
|
| Категория: Массивы | Добавил: deespe (04.02.2011)
|
| Просмотров: 1672
| Рейтинг: 0.0/0 |
|
