Вопрос по информатике:
Каждый нечётный элемент массива уменьшить в два раза а каждый чётный увеличить на 5 полученный массив вывести в столбец
- 20.12.2017 06:12
- Информатика
- remove_red_eye 15962
- thumb_up 21
Ответы и объяснения 1
Program z1; Var a: array [1..100] of real; i,n:integer;Begin write('Введите размера массива - '); readln(n); randomize; for i:=1 to n do begin a[i]:=random(9)-0; write (a[i],' '); end; writeln; writeln; for i:=1 to n do begin if (i mod 2 = 0) then a[i]:=a[i]+5 else a[i]:=a[i]/2; writeln(a[i]); end;End.
- 21.12.2017 07:36
- thumb_up 45
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.