[font=Arial][size=7]
Ребята,помогите! К завтрашнему дню нужна задача!!!Не могу сама решить...Сижу уже второй вечер,голову ломаю над ней!
В одномерном массиве размещены: в первых N элементах значения аргумента, в следующих — соответствующие им значения функции. Напечатать элементы этого массива в виде двух параллельных столбцов (аргумент и значения функции).
for i := 1 to n do(если массив - целочисленный, для вещественного придется добавить еще одну цифру к формату вывода...)
writeln(a[i]:10, a[n+i]:10);
Спасибо большое....Только можно еще один вопрос: я уже попробовала прогу...
var a:array[1..10]of integer;
x,y,n,i,j:integer;
Begin
Writeln('Vvedite kolichestvo elementov v massive',n);
Readln(n);
for i:=1 to n do
begin
write ('a(',i,')=');
readln(a[i]);
end;
writeln;
for j := 1 to n do
writeln(a[i]:10, a[n+i]:10);
readln;
End.
М | Пользуемся тегами ! |
for j := 1 to n do
writeln(a[i]:10, a[n+i]:10); { <--- У тебя цикл не по I а по J }
for j := 1 to n do
writeln(a[i]:10, a[n+i]:10); { <--- У тебя цикл не по I а по J }
Writeln('Vvedite kolichestvo znachenii argumenta v massive',n);
Readln(n);
Writeln('Vvedite kolichestvo znachenii funkcii v massive',k);
Readln(k);
for j:=1 to n do
begin
write ('a(',j,')=');
readln(a[j]);
end;
for m:=n to k do
begin
write ('a(',j,')=');
readln(a[j]);
end;
const max_n = 10; { <--- Максимально возможное значение для N }ну, и далее по тексту
var a:array[1 .. 2 * max_n] of integer;
...
begin
Writeln('Vvedite kolichestvo elementov v massive',n);
Readln(n);
for i:=1 to n do begin
write ('a(',i,')='); readln(a[i]);
write ('f(', a[i], ')='); readln(a[n+i]);
end;
writeln;
...
Спасибо ОГРОМНЕЙШЕЕ!!!! Просто не представляете,как Вы мне помогли!!!