Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиПоискОблакоComboВсе проекты

Помогите с паскалем. Задан массив А 5х6. Элементы четных строк заменить на 0, а нечетных - разделить на 2

Merfes07 Мудрец (11589), на голосовании 7 лет назад
Голосование за лучший ответ
Imobilazer Искусственный Интеллект (221290) 7 лет назад
Помогаю: перебирайте массив в двойном цикле и проверяйте четность строки в условном операторе IF, в зависимости от четности выполняйте нужное действие.
Арсен Арутюнян Гуру (4648) 7 лет назад
for i:=1 to 5 do
for j:=1 to 6 do begin
if i mod 2 = 0 then A[i,j] = 0
else A[i,j] = A[i,j] / 2;
end;

ps для корректной работы элементы массива должны быть вещественными, иначе ошибки будут. либо деление замените на целочисленной деление div

или округлять: A[i,j] = round(A[i,j] / 2);
matty228@mail.ru Ученик (183) 7 лет назад
Ответ 3, двойное отрицание.
Хулиганов Иосиф Искусственный Интеллект (198760) 7 лет назад
Каков тип элементов массива?
если целый, то как-то так:
for j:=1 to 6 do begin
A[ 1, j ]:=A[ 1, j ] DIV 2;
A[ 2, j ]:=0;
A[ 3, j ]:=A[ 3, j ] DIV 2;
A[ 4, j ]:=0;
A[ 5, j ]:=A[ 5, j ] DIV 2;
end;
Если тип вещественный, то всюду вместо DIV поставь слэш
A[ 1, j ]:=A[ 1, j ] / 2;
и т. д.
Похожие вопросы