Массивы

@Velerius · Регистрация: 20.10.2017

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

Доброго времени суток всем, помогите пожалуйста заданием, просто плохо выходит сформировать из одного одномерного массива два других:Сформировать одномерный массив А целых чисел из интервала от -20 до 30. Из этого массива сформировать два одномерных массива В и С. В массив В записать числа из массива А, но уменьшив каждый элемент массива А на абсолютную величину среднего значения элементов массива А. В массив С записать положительные числа из массива А.
Мне хотя-бы понять как код должен правильно выглядеть на паскале , а с компонентами на форме я разберусь. Очень нуждаюсь в помощи.

@Puporev · 21.03.2018, 13:48

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var a,b,c:array of double;
    na,nc,i,k:integer;
    sr:double;
begin
writeln('razmer massiva A na=');
readln(na);
setlength(a,na);
randomize;
writeln('massiv A');
sr:=0;
k:=0;
for i:=0 to na-1 do
 begin
  a[i]:=-9+18*random;
  write(a[i]:5:1);
  sr:=sr+a[i];
  if a[i]<0 then k:=1;
 end;
writeln;
sr:=abs(sr/na);
writeln('modul srednego=',sr:0:1);
writeln('massiv B');
setlength(b,na);
for i:=0 to na do
 begin
  b[i]:=a[i]-sr;
  write(b[i]:5:1);
 end;
writeln;
if k=0 then writeln('Otricatelnyh elementov net')
else
 begin
  writeln('massiv C');
  nc:=0;
  for i:=0 to na-1 do
  if a[i]<0 then
   begin
    inc(nc);
    setlength(c,nc);
    c[nc-1]:=a[i];
    write(c[nc-1]:5:1);
   end;
 end;
readln
end.
 
end.

@Velerius · 21.03.2018, 14:12 **[ТС]**

Спасибо огромное!

@Velerius 0 / 0 / 0 Регистрация: 20.10.2017 Сообщений: 64
		1
	Массивы 21.03.2018, 12:46. Показов 1300. Ответов 2 Метки нет (Все метки) Доброго времени суток всем, помогите пожалуйста заданием, просто плохо выходит сформировать из одного одномерного массива два других:Сформировать одномерный массив А целых чисел из интервала от -20 до 30. Из этого массива сформировать два одномерных массива В и С. В массив В записать числа из массива А, но уменьшив каждый элемент массива А на абсолютную величину среднего значения элементов массива А. В массив С записать положительные числа из массива А. Мне хотя-бы понять как код должен правильно выглядеть на паскале , а с компонентами на форме я разберусь. Очень нуждаюсь в помощи. 0

@Velerius 0 / 0 / 0 Регистрация: 20.10.2017 Сообщений: 64
	21.03.2018, 14:12 [ТС]	3
	Спасибо огромное! 0

Массивы

Решение