Показать сообщение отдельно
Старый 16.06.2009, 12:40   #2 (permalink)
ww01031977
Member
 
Аватар для ww01031977
 
Регистрация: 22.01.2008
Сообщений: 553
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 46
По умолчанию

Можно даже поблагодарить.
Program massiv;
uses crt;
Const N=10;
var i:integer;
X:array[1..n] of real;
L:array[1..n] of real;
begin
clrscr;
for i:=1 to n do
begin
write('L[',i,']='); readln(L[i]);
end;
for i:=1 to n do
if i mod 2=0 then x[i]:=sqr(L[i]) else x[i]:=L[i];
writeln(' masiv L');
for i:=1 to n do
write(L[i]:6:2);
writeln; writeln(' masiv X');
for i:=1 to n do
write(X[i]:6:2); writeln;
end.

Последний раз редактировалось ww01031977; 16.06.2009 в 12:46
ww01031977 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070