4. Из элементов массива A сформировать массив A той же размерности по правилам: Если...

Question

4. Из элементов массива A сформировать массив A той же размерности по правилам: Если номер четный, то B[i]:=i*, если нечетный, то B[i]:=-A[i].
5. Сформировать массив а с помощью датчика случайных чисел целыми числами из интервала [-15,70].
6. Удалить из массива все элементы, которые повторяются, оставить только их первые вхождения, то есть получить массив из различных элементов.

Comments

Паскаль?

---

Паскаль

---

"B[i]:=i*" -- умножить на что?

---

B[i]:=i*A[i]

---

ов массива A: '); двоеточие после а, это?

---

это знак препинания, на работу программы не повлияет

Answer 1

1)
var A,B: array[1..200] of real;
N, i: integer;
begin
write('Введите количество элементов массивов A и B: ');
readln(N);
writeln('Введите значения элементов массива A');
for i:=1 to N do read(A[i]);
writeln();
for i:= 1 to N do
if (i mod 2 = 0) then B[i]:=i*A[i]
else B[i]:=-A[i];
writeln('Массив В:');
for i:=1 to N do write(B[i]:2:2,' ');
end.

2)
var A: array[1..200] of integer;
N, i: integer;
begin
write('Введите количество элементов массива A: ');
readln(N);
randomize;
for i:=1 to N do
    A[i] := random(86)-15;
writeln('Массив А: ');
for i:=1 to n do write(A[i], ' ');
end.
 

Comments

Огромное спасибо!