Вопрос по информатике:
1.Дан массив целых чисел. Все отрицательные элементы заменить положительными.
2.Дан массив целых чисел.Чётные элементы возвести в квадрат остальные разделить пополам
- 24.12.2017 21:03
- Информатика
- remove_red_eye 3423
- thumb_up 68
Ответы и объяснения 1
1)
var a:array [1..3] of integer;
b,i:integer;
z:real;
begin
randomize;
for i:=1 to 3 do
read(a[i]);
for i:=1 to 3 do
if a[i]<0 then a[i]:=(-1)*a[i];
for i:=1 to 3 do
write(' ',a[i]);
end.
2)
var a:array [1..3] of integer;
b,i:integer;
z:real;
begin
randomize;
for i:=1 to 3 do
read(a[i]);
for i:=1 to 3 do
if a[i] mod 2 =0 then a[i]:=a[i]*a[i]
else a[i]:=a[i]/2;
for i:=1 to 3 do
write(' ',a[i]);
end.
- 25.12.2017 02:54
- thumb_up 35
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.