Преобразовать массив так, чтобы сначала располагались все элементы, целая часть которых не превышает единицу

@bananchik007 · Регистрация: 19.10.2014

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

В одномерном массиве, состоящем из n вещественных элементов, вычислить\
1)Преобразовать массив таким образом, чтобы сначала располагались все элементы, целая часть которых не превышает единицу, а потом – все остальные.

Pascal

uses crt;
type mas=array [1..10] of real;
var
n:mas;
i,j,k:integer;
p,s,x:real;
begin
clrscr;
randomize;
writeln ('Elementy massiva');
for i:=1 to 10 do
begin
n[i]:=cos(i);
write (n[i]:5:3,' ');
end;
for i:=1 to 10 do
if n[i]>0 then k:=k+1;
writeln('Kol-vo pol=',k);
readln;
{zadanie 2}
  nyl=n[0];
  ntl=0;
  for i:=1 to nyl do
  if n[i]=0 then k:=k+n[i];
  writln (
if n[i]=0 then
end.

@Puporev · 18.01.2015, 18:14

Сообщение от bananchik007

чтобы сначала располагались все элементы, целая часть которых не превышает единицу,

Так у всех элементов целая часть=0, это же косинусы...

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	18.01.2015, 18:14	2
	Сообщение от bananchik007 чтобы сначала располагались все элементы, целая часть которых не превышает единицу, Так у всех элементов целая часть=0, это же косинусы... 0