Qbasic

[steelik]

Помогите рещить задачки
1. в таблиЦЕ К размерностью 10 наити произв. элементов, которые меньше 0, найти сумму квадратов элементов, которые меньше 1, найти сумму эелементов, стоящих на чётных местах

2. Вывести на экран отриц. значения ф-ии у= икс в кубе на (-8; 9)

ОЧЕНЬ СРОЧНО. ПОЖАЛУЙСТА РЕШИТЕ! С меня 6ка!

1.

в таблиЦЕ К размерностью 10

Я так понимаю матрица 10х10??

найти сумму эелементов, стоящих на чётных местах

Четный столбец или строка?
Тут нужна функция бэйсика, которая показывает остаток от деления, и если при делении на 2, остаток равен 0 то число подходит

Извини я бейсик не знаю, но на паскале это будет так

a: array [1..10,1..10] of integer; //массив чисел
p:=1; // переменная для произведения
s_kv:=0; //сумма квадратов

for i:= 0 to 10 do
begin
for j:= 0 to 10 do
begin
if (a[i,j] < 0) then p:=p*a[i,j]; //если элемент матрицы меньше 0 то домнажаем его
if (a[i,j] < 1) then s_kv:=s_kc+(a[i,j]*a[i,j]); // если элемент матрицы меньше 1 то прибавляем его квадрат к сумме, аналогично с четностью
end;
end;


2.
(-8; 9) - это промежуток х?

for x:=-8 to 9 do
begin
y:=x*x*x;
if (y < 0) then ... выводим игрек
end;

[Алексеи]

У меня следующая задача

Организовать массив. Заменить первое нечетное число на 1, второе на 3, третье на 5 и т.д.

Прошу оказать помощь в написании программы

[EvroStandart]

и что конкретно неполучается?