Вопрос по информатике:
СРОЧНО!!!! ПОМОГИТЕ ПОЖАЛУЙСТА!!
Дан одномерный массив из 6 элементов. Если очередной элемент массива четный, то прибавить к нему первый элемент, если нечетный – то прибавить последний элемент массива. Первый и последний элементы не изменять.
- 01.07.2017 03:32
- Информатика
- remove_red_eye 12722
- thumb_up 46
Ответы и объяснения 1
// PascalABC.Net 3.0, сборка 1088
const
n=6;
var
a:array[1..n] of integer;
i:integer;
begin
Randomize;
Writeln('*** Исходный массив ***');
for i:=1 to n do begin
a[i]:=Random(1001);
Write(a[i],' ');
end;
Writeln;
Writeln('*** Результат ***');
Write(a[1],' ');
for i:=2 to n-1 do begin
if Odd(a[i]) then a[i]:=a[i]+a[n]
else a[i]:=a[i]+a[1];
Write(a[i],' ');
end;
Writeln(a[n])
end.
Тестовое решение:
*** Исходный массив ***
706 46 715 899 103 308
*** Результат ***
706 752 1023 1207 411 308
- 02.07.2017 03:09
- thumb_up 45
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.