массивы в паскале

[Наташа1973]

ума не приложу...

[Наташа1973]

может быть так...

[ОДИНОЧЕСТВО В СЕТИ]

1

begin
{ввод массива а сами допишите и переменные опишите сами}
readln(xn,xk,n)
dx:=(xk-xn)/n;
for i:=1 to n do begin
x[i]:=xn+(i-1)*dx;
if x[i]>2.5 then y[i]:=0
else y[i]:=sqr(x[i]);
end;
for i:=1 to n do
write(x[i]:6:3);
writeln;
for i:=1 to n do
write(y[i]:6:3);
s:=0;
readln(n);
for i:=1 to n do
if not odd(i) then s:=s+a[i];
writeln('s=',s:6:2);
end.

2

 { описание переменныx и ввод вывод исходных данных предоставляю вам}
begin
....
s:=0;
for i:=1 to n do
for j:=1 to m do begin
if a[i,j]=b[i,j] then c[i,j]:=1
else c[i,j]:=0;
s:=s+a[i,j];
end;
for i:=1 to n do begin
for j:=1 to m do
write(c[i,j]:3);
writeln;
end;
writeln('s=',s:6:2);
readln;
end.

[Наташа1973]

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