Вопрос по информатике:
Паскаль. Нужно написать программу, задания 2 и 3
Срочно прошу помощи
Пожаловаться
- 13.01.2018 12:27
- Информатика
- remove_red_eye 8377
- thumb_up 33
Ответы и объяснения 1
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-3,9); a.Println(',');
a:=a.Select((v,i)->i.IsEven?0:v).ToArray; a.Println(',')
end.
Пример
4,-1,-2,0,6,8,-2,1,-1,4
0,-1,0,0,0,8,0,1,0,4
begin
var a:=ArrRandom(5,0,3); a.Println(',');
var b:=a.Last;
a.Select((v,i)->(v,i)).Where(t->t[0]+b=2).Select(t->t[1]+1).Println(',')
end.
Пример
0,3,0,1,1
4,5
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-3,9); a.Println(',');
a:=a.Select((v,i)->i.IsEven?0:v).ToArray; a.Println(',')
end.
Пример
4,-1,-2,0,6,8,-2,1,-1,4
0,-1,0,0,0,8,0,1,0,4
begin
var a:=ArrRandom(5,0,3); a.Println(',');
var b:=a.Last;
a.Select((v,i)->(v,i)).Where(t->t[0]+b=2).Select(t->t[1]+1).Println(',')
end.
Пример
0,3,0,1,1
4,5
Пожаловаться
- 14.01.2018 20:30
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы