Задать массив целыми числами в диапазоне [0.100] и удалить все элементы , у которых последняя цифра 8

@Sonne89 · Регистрация: 15.09.2014

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

Задать массив целыми числами в диапазоне [0..100] и удалить все элементы , у которых последняя цифра 8

@Puporev · 21.09.2014, 21:55

Pascal

uses crt;
const nmax=100;
var  a:array[1..nmax] of integer;
     n,i,j,p,x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(101);
  write(a[i]:4);
 end;
writeln;
i:=1;
while i<=n do
if a[i] mod 10=8 then
 begin
  for j:=i to n-1 do
  a[j]:=a[j+1];
  n:=n-1;
 end
else i:=i+1;
writeln('Удаление чисел, оканчивающихся на 8:');
for i:=1 to n do
write(a[i]:4);
readln
end.

@Sonne89 0 / 0 / 0 Регистрация: 15.09.2014 Сообщений: 6
		1
	Задать массив целыми числами в диапазоне [0.100] и удалить все элементы , у которых последняя цифра 8 21.09.2014, 21:25. Показов 1526. Ответов 1 Метки нет (Все метки) Задать массив целыми числами в диапазоне [0..100] и удалить все элементы , у которых последняя цифра 8 0

	21.09.2014, 21:55

Задать массив целыми числами в диапазоне [0.100] и удалить все элементы , у которых последняя цифра 8

Решение