Построить массив, в который поместить все элементы второго массива, оканчивающиеся на цифру 5

[Паскалька^^]

Задан массив действительных чисел. Построить новый массив, в который поместить все элементы исходного, оканчивающиеся на цифру 5. Блок-схема, алгоритмич. язык, паскаль.....

P.S.: Идей никаких((((

[Teor]

Вроде работает

program mas;
uses crt;
var mas,mas2,mas3:array[1..10000] of real; i,k,n:integer;
begin
clrscr;
writeln ('Введите размер');
readln (n);
for i:=1 to n do
begin
mas[i]:=random(500);
write (mas[i],'  ');
end;
for i:=1 to n do
begin
mas2[i]:=frac(mas[i]/10)*10;
if mas2[i]=5 then
begin
k:=k+1;
mas3[k]:=mas[i];
end;
end;
writeln;
writeln;
writeln;
for i:=1 to k do
write (mas3[i],'  ');
readkey
end.

Хотя второй масив (mas2) тут можно и не использовать

[BarracudaSSAT]

Teor, я слегка изменил твой код . не обижайся, если что, просто твой код у мя почему-то не заработал...

program massiv;
uses crt;
var mas,mas2:array[1..10000] of integer;
i,k,n:integer;
begin
clrscr;
randomize;
write ('Введите размер массива ');
readln (n);
write('Исходный массив: ');
for i:=1 to n do
begin
mas[i]:=random(500);
write (mas[i],' ');
if frac(mas[i]/10)*10=5 then
begin
inc(k);
mas2[k]:=mas[i];
end;

end;
writeln; writeln;
write('Новый массив: ');
for i:=1 to k do
write (mas2[i],' ');
readkey
end.

[MalexG]

К чему вот это:

if frac(mas[i]/10)*10=5 then

Не лучше-ли так?

if mas[i] mod 10 = 5 then

[Teor]

Не лучше-ли так?

if mas[i] mod 10 = 5 then

Лутше, если б был масив целых чисел.

BarracudaSSAT,твой вариант немного лучше чем мой

[puporev]

Задан массив А=(0,215; -1.235; 2.36; 1.05; -5.233365);
Выполните поставленную задачу с помощью своей программы.

[Teor]

...да я как-то не подумал про дробные числа.
Для дробных чисел у меня не получилось написать программу, так как функция frac как-то криво работает.

[puporev]

Если вводить все числа с одинаковым числом знаков после запятой, то нет проблем, а если разное количество, то у меня тоже не получается, потому что представление дробной части числа в машинном представлении не совпадает с тем что мы вволим, например мы ввели 1,0235 и думаем что последняя цифра 5, а компьютер так не считает, у него где-то в 10м знаке еще цифра есть.

[Teor]

Интересно, а откуда компьютер берет эту цыфру? Может можно как-то такой "глюк" исправить?

[BarracudaSSAT]

MalexG, круто :-D! про mod даже не подумал!!!)))))