Задана последовательность X = (x1, x2, …, x10). Сформировать из неё одномерный массив Y, состоящий из элементов, удовлетворяющих условию. КАК ?

@ARSLAN928 · Регистрация: 26.11.2013

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

Документ Microsoft Word 97-2003.doc

@Puporev · 24.01.2014, 19:19

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const n=10;
      x:array[1..n] of real=(5.2,-4.7,1,9.22,-8.3,-9.52,0.75,8.9,-4.2,1.3);
var y:array[1..n] of real;
    r:real;
    i,k:integer;
begin
writeln('Massiv X:');
r:=0;
for i:=1 to n do
 begin
  write(x[i]:6:2);
  r:=r+x[i]
 end;
writeln;
writeln('r=',r:0:2);
k:=0;
for i:=1 to n do
if abs(x[i])<=r then
 begin
  inc(k);
  y[k]:=x[i];
 end;
if k=0 then writeln('Iskomyh elementov net')
else
 begin
  writeln('Massiv Y:');
  for i:=1 to k do
  write(y[i]:6:2)
 end;
readln
end.

@ARSLAN928 0 / 0 / 0 Регистрация: 26.11.2013 Сообщений: 4
		1
	Задана последовательность X = (x1, x2, …, x10). Сформировать из неё одномерный массив Y, состоящий из элементов, удовлетворяющих условию. КАК ? 24.01.2014, 18:53. Показов 7102. Ответов 1 Метки нет (Все метки) Документ Microsoft Word 97-2003.doc 0

	24.01.2014, 19:19

Задана последовательность X = (x1, x2, …, x10). Сформировать из неё одномерный массив Y, состоящий из элементов, удовлетворяющих условию. КАК ?

Решение