Предмет: Информатика, автор: RedtT

Помогите решить задачи на Паскале,пожалуйста
1.Дан массив натуральных чисел размерности N (<=20).Найти сумму элементов,кратных заданному K.
2.Даны целые числа а1,а2,а3...,аn(с индексом n).Вывести на печать только те числа,для которых выполняется аi (с индексом i) <= i

Ответы

Автор ответа: Аноним
0
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var a:=ArrRandom(ReadInteger('n='),1,99);
  a.Println;
  var k:=ReadInteger('k=');
  Writeln('Сумма чисел, кратных ',k,': ',
    a.Where(x->x mod k=0).Sum)
end.

Тестовое решение:
n= 18
45 17 36 15 65 17 97 44 49 43 60 51 66 72 18 55 71 85
k= 12
Сумма чисел, кратных 12: 168

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var a:=ArrRandom(ReadInteger('n='),1,20);
  a.Println;
  a.Where((x,i)->x=i+1).Println
end.

Тестовое решение:
n= 16
17 2 1 14 20 19 10 3 9 15 14 4 2 7 2 16
2 9 16
Похожие вопросы
Предмет: Русский язык, автор: trudovanastia123123
Предмет: Информатика, автор: lenovo643dregmailcom