Программа на QBASIC
DIM i AS INTEGER, n AS INTEGER
CLS
INPUT "Введите количество элементов: ", n
DIM Q(1 TO n) AS INTEGER
RANDOMIZE TIMER
PRINT "Исходный массив"
FOR i = 1 TO n
Q(i) = INT(RND * 220) - 70
PRINT Q(i)
NEXT i
PRINT "Результирующий массив"
FOR i = 1 TO n
IF i MOD 3 = 0 THEN Q(i) = 1
PRINT Q(i)
NEXT i
END
Тестовое решение:
Введите количество элементов: 13
Исходный массив
121
34
27
69
30
95
98
28
136
100
48
120
82
Результирующий массив
121
34
1
69
30
1
98
28
1
100
48
1
82
Program ez_1;
var s: integer;
a: array [1..9] of integer;\
i: byte;
begin
a[1] := 5;
for i := 1 to 9 do
a[i] := a[1] + 2 * i;
for i := 1 to 9 do
begin
s := 3 * (a[i] * a[i]);
writeln(s);
end;
end.
2)
program ez_2;var
s, m, b: integer;
a: array [1..9] of integer;
i: byte;
begin
readln(s);
for i := 1 to s do
begin
read(a[i]);
if a[i] < 0 then m := m + 1
else b := b + 1;
end;
writeln(b, ' Положительных чисел');
writeln(m, ' Отрицательных чисел');
end.
Вроде так. Если что-то не так. Пиши.
Системное программирование — программы, обеспечивающие управление компьютерной системой, такими как процессор, ОП (оперативная память), сетевое обеспечиние и т.д.