Вопрос по информатике:
Сделайте пожалуйста на языке PASCAL ABC. 20 баллов кто напишет!
1)Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10,затем преобразовывает его, увеличивая все элементы с чётными значениями на 1. Если элементы с чётными значениями отсутствуют, оставить массив без изменений.
2)Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10,затем преобразовывает его, увеличивая все элементы с нечётными значениями в три раза, а элементы с чётными значениями заменяя на 0.
3)Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10,затем преобразовывает его, возводя в квадрат все элементы с чётными индексами.
4)Составьте программу, которая заполняет массив а [1..10] с клавиатуры, затем преобразовывает массив, заменяя все отрицательные элементы их модулями.
- 20.07.2018 16:02
- Информатика
- remove_red_eye 18414
- thumb_up 12
Ответы и объяснения 1
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (mas[i] mod 2)=0 then
mas[i]:=mas[i]+1;
end;
end.
2)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (mas[i] mod 2)=0 then
mas[i]:=0;
else
mas[i]:=mas[i]*3;
end;
end.
3)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (i mod 2)=0 then
mas[i]:=(mas[i]*mas[i]);
end;
end.
4)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
readln(mas[i]);
if (mas[i]<0) then
mas[i]:=mas[i]*(-1);
end;
end.
- 21.07.2018 09:28
- thumb_up 45
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.