Записать в массив Z подряд десять первых не нулевых вещественных элементов Y(N), N<=40

@Antihaos · Регистрация: 05.10.2014

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

Здравствуйте.
Помогите написать программу.
"Записать в массив Z подряд десять первых не нулевых вещественных элементов Y(N), N<=40."

@ZX Spectrum-128 · 15.10.2014, 18:33

Pascal

var
  x,y:array[1..100] of real;
  i,j: integer;
  n: integer;
begin
  randomize;
  writeln('Введите количество элементов массива: ');
  readln(n);
  for i:=1 to n do
    x[i]:=random(n)-n div 2;
  writeln('Исходный массив: ');
  for i:=1 to n do
    write(x[i]:8:2);
  writeln;
  for i:=1 to n do
    if x[i]<>0 then
      begin
        inc(j);
        y[j]:=x[i];
      end;
  n:=j;
  if n>10 then
    n:=10;
  writeln('Сформированный массив: ');
  for i:=1 to n do
    write(y[i]:8:2);
  readln;
end.

Взято отсюда и чуть переделано.
Переписать положительные элементы массива Х (100) подряд в массив Y

@Antihaos 0 / 0 / 0 Регистрация: 05.10.2014 Сообщений: 37
		1
	Записать в массив Z подряд десять первых не нулевых вещественных элементов Y(N), N<=40 15.10.2014, 18:13. Показов 1679. Ответов 1 Метки нет (Все метки) Здравствуйте. Помогите написать программу. "Записать в массив Z подряд десять первых не нулевых вещественных элементов Y(N), N<=40." 0

	15.10.2014, 18:33

Записать в массив Z подряд десять первых не нулевых вещественных элементов Y(N), N<=40

Решение