Однородные массивы.

[Vadim123456]

В первых трёх программах я уверен, но всё-таки посмотрите пожалуйста, может кто-то из вас заметит ошибку и поможет. В четвёртой программе я сомневаюсь, а в пятой я вообще не знаю с чего начать. Заранее благодарен!

1. С помощью датчика случайнтых чисел на интервале (-50, 50) получить целочисленный массив, состоящий из 35 элементов.

Program gg;
Uses crt;
Var
a:array [-50..50] of integer;
i:integer;
Begin
Clrscr;
Randomize;
For i:=-50 to 50 do
A[i]:=Random(101)-50;
For i:=-50 to 50 do
Begin
Write('A[',i,']=',A[i]);
Write(' ');
End;
Readln;
End.

2. Заполнить числовой массив так, чтобы значения элементов совпали с их индексами.

Program gg2;
Uses crt;
Var
a:array [1..10] of integer;
i:integer;
Begin
Clrscr;
For i:=1 to 10 do
Begin
Write('A[',i,']=',i);
Write(' ');
End;
Readln;
End.

3. Дан массив целых чисел из 10 элементов. Ввод элементов организовать с клавиатуры. Вывести в строку массив, состоящий из нечётных элементов.

Program gg;
Uses crt;
Var
a:array [1..10] of integer;
i:integer;
Begin
Clrscr;
For i:=1 to 10 do
Begin
Write('A[',i,']=');
Readln(A[i]);
end;
Write('A[1]=',A[1]);
Write(' ');
Write('A[3]=',A[3]);
Write(' ');
Write('A[5]=',A[5]);
Write(' ');
Write('A[7]=',A[7]);
Write(' ');
Write('A[9]=',A[9]);
Readln;
End.

4. Заполнить одномерный массив из N элементов следующим образом:

1 Попытка

Program gg;
Uses crt;
Var
a:array[1..7] of integer;
i:integer;
Begin
For i:=1 to 7 do
Begin
Write('A[',i,']=');
Readln(A[i]);
End;
For i:=1 to 7 do
Writeln('A[',i,']=',A[i]);
Readln;
End.

2 Попытка

Program gg;
Uses crt;
Var
a:array[1..10] of integer;
i:integer;
Begin
Clrscr;
i:=1;
Write('A[',i,']=',0);
Write(' ');
i:=2;
Write('A[',i,']=',i);
Write(' ');
i:=3;
Write('A[',i,']=',0);
Write(' ');
i:=4;
Write('A[',i,']=',i);
Write(' ');
i:=5;
Write('A[',i,']=',0);
Write(' ');
i:=6;
Write('A[',i,']=',i);
Write(' ');
i:=7;
Write('A[',i,']=',0);
Write(' ');
i:=8;
Write('A[',i,']=',i);
Write(' ');
i:=9;
Write('A[',i,']=',0);
Write(' ');
i:=10;
Write('A[',i,']=',i);
Readln;
End.

5. Сформировать массив A(N) следующим образом: A(1)=-1, A(2)=1, A(3)=-3, A(4)=3, A(5)=-5, A(6)=5, A(7)=-7 и т.д.

[Базиля]

в общем по поводу первой задачи вроде как все верно, только выводить он у тебя будет 100 элементов,а по условию нужно 35 по этому вывод изменить нужно от 1 до 35 в общем вот текст исправленный:

Program gg;
Var
a:array [-50..50] of integer;
i:integer;
Begin
Randomize;
For i:=-50 to 50 do
A[i]:=Random(101)-50;
For i:=1 to 35 do
Begin
Write('A[',i,']=',A[i]);
Write(' ');
End;
Readln;
End.

3. Дан массив целых чисел из 10 элементов. Ввод элементов организовать с клавиатуры. Вывести в строку массив, состоящий из нечётных элементов.

здесь у тебя вообще не правильный алгоритм, у тебя в любом случае будут выводиться элементы с нечетным индексом,а нужно выводить сами нечетные ЭЛЕМЕНТЫ, для этого нужна проверка при выводе, держи правильный текст этой задачи :

Program gg;
Uses crt;
Var
a:array [1..10] of integer;
i:integer;
Begin
Clrscr;
For i:=1 to 10 do
Begin
Write('A[',i,']=');
Readln(A[i]);
end;
for i:=1 to 10 do
if a[i] mod 2 <>0 then
write(a[i],'  ');
end.

4. Заполнить одномерный массив из N элементов следующим образом:

Во второй попытке с чего ты взял что элементов именно 10? По условию сказано что их кол-во N, следовательно сколько введешь в N, столько и должно эелементов вывести по условию твоей задачи.
И еще по поводу 2-ому способу, в принципе для 10 элементов правильно, но не рационально, вот представь то что нужно для 100 элементов, ты так и будешь

Write('A[',i,']=',0);

для 100 и писать?
В общем держи правильное решение этой задачи:

Program gg;
Var
a:array[1..100] of integer;
n,i:integer;
Begin
writeln('введите кол-во элементов');
readln(n);
for i:=1 to n do
a[i]:=i;
for i:=1 to n do
begin
if a[i] mod 2 = 0 then
a[i]:=i
else a[i]:=0
end;
for i:=1 to n do
write(a[i],'  ');
end.

5. Сформировать массив A(N) следующим образом: A(1)=-1, A(2)=1, A(3)=-3, A(4)=3, A(5)=-5, A(6)=5, A(7)=-7 и т.д.

Program gg;
Var
a:array[1..100] of integer;
j,n,i:integer;
Begin
writeln('введите кол-во элементов');
readln(n);
j:=1;
for i:=j to n-1 do
begin
a[j]:=-j;
a[j+1]:=j;
j:=j+2;
end;
for i:=1 to n do
write('a[',i,']=',a[i],'  ');
end.

[Базиля]

2. Заполнить числовой массив так, чтобы значения элементов совпали с их индексами.

вроде как правильно. лучше сделать вот так, ибо по условию у тебя не сказано что элементов именно 10:

Program gg2;
Uses crt;
Var
a:array [1..100] of integer;
n,i:integer;
Begin
Clrscr;
writeln('введите кол-во элементов');
readln(n);
For i:=1 to n do
Begin
Write('A[',i,']=',i);
Write(' ');
End;
Readln;
End.

Надеюсь это тебе поможет

[Vadim123456]

1. Ошибку понял =)
2. Тоже всё понятно =)
3. Эта у меня не работает, так, как сделал ты. Я её поправил и вроде получилось =) Посмотри. Ты там в конце где
For i:=1 to 10 do
Begin
If a[i] mod <> 0 then
Write('A[',i,']=',a[i],' ');
End;
Readln;
End.

Program gg;
Uses crt;
Var
a:array [1..10] of integer;
i:integer;
Begin
Clrscr;
For i:=1 to 10 do
Begin
Write('A[',i,']=');
Readln(A[i]);
end;
For i:=1 to 10 do
Begin
If a[i] mod 2<>0 then
Write('A[',i,']=',a[i],' ');
End;
Readln;
End.

4. В четвёртой так же как и в третьей в конце надо добавить.

Program gg;
Uses crt;
Var
a:array[1..100] of integer;
n,i:integer;
Begin
Clrscr;
Write('Vvedite kol-vo elementov=');
Readln(n);
For i:=1 to n do
A[i]:=i;
For i:=1 to n do
Begin
If A[i] mod 2 = 0 then
A[i]:=i
Else A[i]:=0
End;
For i:=1 to n do
Write('A[',i,']=',a[i],'  ');
Readln;
End.

5. Во всём согласен, только опять Readln не написал =)

ОГРОМНОЕ СПАСИБО ТЕБЕ! ВЫРУЧИЛ ОЧЕНЬ! ТЕПЕРЬ Я РАЗОБРАЛСЯ ВО ВСЁМ!

Добавь меня в аську пожалуйста 449551262 или дай свою добавлю =)

[Vadim123456]

А ещё у меня почти такая же задачка как и пятая =) Помогите мне, пожалуйста.

2. Создайте и распечатайте в столбик одномерный массив длиной N, следующим образом: А(1) = 4, А(2) = 6, А(3) = 8, А(4) = 10 . . .

[Vadim123456]

Во решил =)

Program gg;
Uses crt;
Var
a:array[1..100] of integer;
i,k,N:integer;
Begin
Clrscr;
Write('Vvedite kol-vo elementov=');
Readln(N);
k:=4;
For i:=1 to N do
Begin
A[i]:=k;
k:=k+2;
End;
For i:=1 to N do
Writeln('A[',i,']=',a[i]);
Readln;
End.

[Базиля]

по поводу begin и end; в 3-ей и 4-ой задаче, они там не обязательны т.к. в цикл входит только один условный оператор, операторные скобки в цикле следует ставить когда в него входит более одного оператора.
Например

for i:=1 to 10 do
begin
if a[i]=1 then p:=5;
if a[i]=13 the p:=16;
end;

видишь в этот входят два условных оператора, следовательно нужно поставить операторные скобки, без них у тебя по циклу проверялся бы только первый опертор, а последний проверялся бы по последнему значению параметра цикла т.е. 10.
в 4-ой задаче readln требуется ставить в некоторых версиях Pascal'я для вывода результата решения задачи на экран(Borland TP), у меня выводит спокойно и без этого оператора(Pascal ABC)
P.S. по поводу аськи см ЛС

[Жора Сухов]

Ребят, напишите мне пожалуйста 2 программки жесть надо!

1)Напишите программу формирования массива размером 5x5 с помощью датчика случайных чисел.Замените в нём все элементы, значения которых кратны трём, на соответствующие произведения их индексов. Выведите на экран исходный и изменённый массивы.

2) Сформируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел.Получите новый массив, каждый элемент которого равен обратному соответствующему элементу исходного массива. Посчитайте количество не изменившихся элементов и найдите в новом массиве максимальный по абсолютной величине отрицательный элемент.
Выведите на экран исходные и полученные результаты.

Заранее спасибо!