Pawo
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
const
N = 10;
var
a,b:array[1..N] of real;
i,j:integer;
begin
j:=0;
for i:=1 to N do
begin
write('Enter A[',i,']: ');
readln(a[i]);
if abs(a[i])>1 then
begin
j:=j+1;
b[j]:=a[i];
end;
end;
writeln;
if j>0 then
for i:=1 to j do
writeln('b[',i,']: ',b[i]) else
writeln('Massiv B pustoy');
readln;
end. |
Всего записей: 1105 | Зарегистр. 05-05-2007 | Отправлено: 18:40 09-04-2009 | Исправлено: Pawo, 00:45 10-04-2009 |
|
