Question

Информатика. PascalABC. Даю 40 баллов.

Answer 1

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(15,1,100); a.Println;
  var k:=0;
  for var i:=0 to 14 do
    if a[i] mod 7=0 then begin
      k+=1; WritelnFormat('A[{0}]={1}',i+1,a[i])
      end;
  if k=0 then Writeln('Заданных элементов в массиве нет')
end.

Пример
33 15 28 79 56 50 95 24 41 4 64 48 29 27 72
A[3]=28
A[5]=56