Формировка массива, Народ, очень нужна помощь!!! помогите кто умеет это делать Опции

[Fisher]

В массиве Д1 состоящем из 21 элемента, имеются отрицательные, положительные, нулевые числа вещественного типа.(Вещественный тип-числа с дробной частью. Наприсер: 3,5; -45,54;)
Сформировать новый массив Д2, удалив из него нулевые элементы, а отрицательные-возведя в квадрат.
Массивы распечатать.

[TORETO]

Людям на этом форуме не надо объяснять что такое вещественный тип

[Айра]

В массиве Д1 состоящем из 21 элемента, имеются отрицательные, положительные, нулевые числа вещественного типа.(Вещественный тип-числа с дробной частью. Наприсер: 3,5; -45,54;)
Сформировать новый массив Д2, удалив из него нулевые элементы, а отрицательные-возведя в квадрат.
Массивы распечатать.

А что именно тебе непонятно/не получается? Как вводить/выводить массивы -> в FAQ, проверки на отрицательное или ноль можно сделать через if, возведение в квадрат - sqr(x), где х - аргумент..

[neic]

uses crt;
var i,n:integer;
		s:real;
		d1,d2:array[1..21] of real;

begin
clrscr;
for i:= 1 to 21 do
begin
	write('Введите элемент матрицы D[',i,']:');
	read(s);
	d1[i]:=s
end;

writeln('Выводим исходную матрицу');

for i:=1 to 21 do
begin
	 write(' ',d1[i]1)
end;


for i:=1 to 21 do
begin
		 if d1[i]>0 then
				d2[i]:=d1[i]
		else if d1[i]<0 then
				d2[i]:=SQR(d1[i]);
end;
writeln;
writeln;
writeln('Выводим обработаную матрицу');
for i:=1 to 21 do
begin
		if d2[i]<>0 then write(' ',d2[i]:6:3)
end;
readkey
end.

[Michael_Rybak]

neic, не стоит делать за людей их работу, тем более тривиальную.

[klem4]

зачем 2 массива ? можно обойтись одним ...

[Fisher]

тут матрица не нужна

[klem4]

Fisher, где ты в программе увидел матрицу ?

[Fest]

тут матрица не нужна

тебе в FAQ - там все объяснено)) Увидешь отличие массива от матрицы