Удалить из массива все числа, в которых первая и последняя цифра совпадают

@Чирикан · Регистрация: 27.09.2015

Author24 — интернет-сервис помощи студентам

Удалить из массива все числа, в которых первая и последняя цифра совпадают.

@vint-81 · 09.12.2015, 18:33

Pascal

const n=20;
type mas=array[1..n] of integer;
var a:mas;
    i,na:integer;
procedure vv_mas(var x:mas;nn:integer;s:string;f:boolean);
var i:integer;
begin
 writeln(s);
 for i:=1 to nn do
  begin
   if f then x[i]:=random(1002);
   write(x[i],' ');
  end;
 writeln 
end;
function sov(x:integer):boolean;
var x1,xn:byte;
begin
 xn:=x mod 10;
 while x>10 do x:=x div 10;
 x1:=x mod 10;
 sov:=x1=xn
end;
procedure udal(var a:mas;k:integer;var nn:integer);
var i:integer;
begin
 for i:=k to nn-1 do a[i]:=a[i+1];
 dec(nn)
end; 
begin
 vv_mas(a,n,'A:',true);
 na:=n;i:=1;
 while i<=na do if sov(a[i]) then udal(a,i,na) else inc(i);
 vv_mas(a,na,'A'':',false)
end.

@Чирикан 1 / 1 / 1 Регистрация: 27.09.2015 Сообщений: 69
		1
	Удалить из массива все числа, в которых первая и последняя цифра совпадают 09.12.2015, 17:07. Показов 1752. Ответов 1 Метки нет (Все метки) Удалить из массива все числа, в которых первая и последняя цифра совпадают. 0

	09.12.2015, 18:33

Удалить из массива все числа, в которых первая и последняя цифра совпадают

Решение